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T CND 
E INIADP780 = ADAPTER INITIALIZATION FOR VAX 11/780 


-IDENT ‘'v04-002' 


(RR RRRARASARASALALARLS ALS ALALE ASA S ELE L ARAL E LER ERE RR REE REESE CERES ESSE EEE EE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


:* 

* t 
:® ® 
:f S 
:* a 
*® ® 
i THIS SOFTWARE I$ FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
j# ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICE TH ‘ 
tt INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
;® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. * 
-® ® 
;® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
:® CORPORATION. : 
-* © 
:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ’ 
** ® 
*® ® 
:® * 


tARARBARARAAAAARLELALAAEEEARASESARERESSE SESS R ERR RR RRR ERE RR RE SERRE REEL ERE ELAS GS | 
Facility: System bootstrapping and initialization 


Abstract: This module contains initialization routines that are loaded 
during system initialization (rather than Linked into the system). 


Environment: Mode = KERNEL, Executing on INTERRUPT stack, IPL=31 
Author: Trudy C. Matthews Creation date: 22-Jan-1981 
Modification history: 


v04-002 TCM0013 Trudy C. Matthews 10-Sep-1984 
Add $BQODEF missing from TCMOO12. 

v04-001 TCMO012 Rian, c. Rettheus 07-Sep-1984 
For venus proc urn on cache before calibratin 


ng 
TIMEDWAIT Solis” ah IB... EXESINI “Ti MWAIT) Store the T MEDWAIT 
values calculated ef er cache is enabled in the boot driver's 
TIMEDWAIT cells. s is because the boot driver initially 
hes to run “with senha off, but after booting will run with 
cache on. 


vO3-024 TCMO011 Trudy C. Matthews 31-Ju 1994 
Change venus's CRD 4 nterrupt vector back to Sh54 n the SCB, 


suas = sonren vavionarion eon wa Vron eersise OB sHt ROME CeeTasMeass OO 


and its SBIA Fail vector to “X64. 


v03-023 wMc0001 ye ne Cardoza 30-Jul-1984 
Add H memory to list. 


v03-022 TCMO0010 [rudy C. Matthews 25-Jul-1984 
Fix a bug in INISUBSPACE for the 11/790 that caused second 
and subsequent ¥ bus adapter spaces to be mapped incorrectly. 
Fix bugs in INISSCB for the 11/ » Fee genet tonal 
assembly flags in INISCONSOLE for the 11/790. 


v03-021 KDM0100 Kathleen D. Morse 01-May-1984 
Correct address of memory CSRs to be past the 8 missing 
Qbus adapter pages that do not exist. 


v03-020 KDM0099 Kathleen D. Morse 27-Apr-1984 
On a MicroVAX I, if the sysgen parameter TIMEDWAIT is set 
to request no time-prompt ng. then use the last recorded 
oyatee time instead. This is found in EXE$GQ_TODCBASE 
which can be updated with a SET TIME command. 


V03-019 RLRSCORPIO Robert L. Ragpegert 16-Mar-1984 
Begin additions (to INISIOMAP) for Scorpio support. 
Also move ADAPDESC to SYSMAR.MAR, changing it to remove 
the ADAP_GENERAL array. 


V03-018 RLRINIADP Robert Rappaport 8-F eb-1984 
Add refinements to previous update that introduces 
Lonqword array CONFREG. Mainly add logic to allow for 
independently assembled invocations of ADAPDESC macro 
to be Linked into this code. This provides possible 
support of BI as a public bus, with user defined nodes. 


v03-017 KPLO100 Peter Lieberwirth 30-Jan-1984 
Implement first step towards a longword-array CONFREG to 
replace current byte array CONFREG. INIAD® will construct 
two confregs, CONFREG and CONFREGL. CONFREGL will be 
a longword array. The high byte will be a VMS-bus 
designation, and the low word will contain the 16-bit 
device type. The BI introduces 16 bit device types. 


When all references to CONFREG have been modified to touch 
CONFREGL, INIADP will be modified again to stop creating 
the byte array. 


OOQOooCooooooooooooeo 


SOOO OCOCOOSOOCOOOOCOOOOOOOOSoOO: 


OOOOCOCOCSCOCOCOCOOOSCOOOOOOOOOOOOoO 


, 
: 


While here, map 9 pages of CI register space, up from 8. 


v03-016 KPLOO01 Peter Lieberwirth 17-Jan-1984 
Fix ug in VO3-015 that caused a failure to boot on 750s. 
Specifically, add NDT$S_MEMI664NI to ADAPDESC macro. 


vO3-015 TCMO009 srudy C. Matthews 12-Dec-1983 
Add sup ort for booting from VENUS console device to 
INISCONSOLE. When mapping 1/0 space on VENUS, use the 
PAMM to determine if any adaptors are present on the 
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v03-014 KDM0081 Kathleen D. Morse 13-Sep-1983 


Create version for Micro-VAX | 


V03-013 DWT0126 David W. Thiel s0=Aup- 1965 
Modify EXESINIT_ TODR to set internal time without 
modifying the contents of the system disk. 


v03-012 KDM0062 Kathleen D. Morse 18-Jul-1983 
Add loadable, cpu-dependent routine for initializing 
the time-wait loop data cells, EXESINI_TIMWAIT. 


v03-011 KDM0057 Kathleen D. Morse 15-Jul-1983 
Added loadable, c uegependent routine for initializing 
the system time, EXESINIT_TODR. 


v03-010 KTA3071 erbey T. Altmann 
a ct console init code. 


v03-009 TCMOO rudy Matthews 10-Jan-1983 

change Sosect of 19 0 data that must stick around after 
P is deleted. Build preys ABUS_VA, ABUS_TYPE, and 

ABUS_INDEX that describe the 11/790 ABUS configuration. 


12-Jul-1983 


V03-008 MSHO002 Maryann Hinden 08-Dec-1982 
Add powerfail support for DW750. 
V03-007 ROWO0142 Ralph 0. Weber Pr ali 


Change UBA teverruet services routines grotetyse 
UBAE RADR is correctly computed as an offset from SOBAINTBASE. 


V03-006 TCM0007 dy Matthews 10-Nov-1982 
Add dagemwpcs etitaliserion of SCB. 


v03-005 TCM0006 yey C. Matthews 8-Nov-1982 
Initialize field. ADP L AVECTOR with the address of 
each adapter's first STB vector. 


v03-004 RTASONS Kerbey T. Altmann 30-0c t-1982 
Move from INIL OA facilit ty rename from INITADP 
put in conditi aaa assem ly, rewrite some routines. 
v03-003 MSHO001 pyenn n Hinden 24-Sep-1982 
Change EXESDW780" IN to EXESUBAERR_ INT. 
v03-002 TCMO00S Trudy_C, Matthews 10-Aug-1982 
Added support for 11/796 processor. 
v03-001 KDM0002 Kathleen D. Morse 28-Jun-1982 


Added SOCDEF. 


Page ds 
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184 ; 
! 5 : MACRO LIBRARY CALLS 
1 3: SADPDEF ; Define ADP offsets. 
1 8 SBIICDEF i Define BIIC offsets. 
1 SBQODEF 3; Define boot p nad vail offsets. 
190 SBTDDEF 3 Define boot deyree 
191 SBUADEF 3 Define BUA Re ater offsets. 
138 SCRBDEF 3; Define CRB offs 
19 SOCDEF 3; Define adapter r types 
194 SDDBDEF : Define DDB o 
195 SDYNDEF 3; Define data” sheertan type codes. 
19 gipgorr ; Define joterruet dispatcher offsets. 
3 0 $10780DEF 3; Define 1 space. 
1 SMCHKDEF 3; Define machine check masks. 
0 SNDTDEF : Define nexus device types. 
6 1 SPROEF 3; Define IPR numbers. 
09 é SPR780DEF ; Define 11/780 specific IPR numbers. 
0000 0 
000 4 
00 
00 4 
00 4 
B88 47 SPTEDEF : Define Page Table Entry bits. 
0 rt SRPBDEF : Define Restart Parameter Block fields. 
000 4 SUBADEF : Define UBA re ‘eter offsets. 
000 50 SUCBDEF ; Define UCB offs 
8608 51 SVADEF 3; Define sirtuel ates fields. 
000 52 SVECDEF 3; Define vec offsets. 
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-SBTTL Macros to describe nexus configurations 


The macros FLOAT_NEXUS and FIXED_NEXUS add one or more entries to a 
nexus descriptor table. Each entry is of the form: 


Cen DO BO PDE ME DeE mB a nese noeasa + 


' PFN of nexus I/0 space ' 


Ie I eee 
> tm §. GB type 
er errr ecocen} 
type = 0 -> vesting nexus 
type = non-zero => fixed nexus; type = fixed adapter type 
bus = 0, if SBI; %x80 if BI (this is a VMS-only designation) 


device_type: SBI adapters have 8-bit device type codes. These 
device types are simple integers. 


BI adapters have 16-bit device type codes, that are 
subject to the following interpretation: 


- the MSB of the device-type field will be 0 for DEC 
devices and 1 for non-DEC devices, 


- DEC memory devices will have Os in the high-order 
byte of the device type, 


- non=DEC supplied memory devices will have a 1 in the 
MSB of the high-order byte, and the rest of the high 
order byte will contain Os. 


- The “‘all Os*’ and “‘all 1s'* device-type codes are 
reserved for DEC. 


If SBI type codes were siagly expanded to a word for purposes of the routines 
e 


in this module, there would 


ossible conflicts between SBI devices and 


BI memory adapters supplied by DEC. Voila: the bus type. 
Macro FLOAT_NEXUS. 
INPUTS: 


SONA ANEW SO OOO NAME NI SO OD NAME WN O OO NOU EWN $$ O OD NOUS WW OOONO U1 


—DOOODOODOOOO0 0D O00 OOO O00 09 09 09 09 09 09 09 09 09 SI NII SINS NSIS NIP AA AAOAA Ono 


CQOoOQoOooooooooQooooooooooooooooooooooooocoooooooooo 


SOOQoooooooooooooooooooooooooooooeo 


PHYSADR -- ehyetcet address of 1 or more contiguous floating nexus 
ots 
NUMNEX == number of contiguous floating nexuses, default = 1 
PERNEX == amount of address space per nexus (does not have to be 
specified if NUMNEX = 1) 


»MACRO FLOAT_NEXUS PHY SADR , NUMNE X=1 , PERNEX=0 
A_= PHYSADR 


P 

»REPEAT NUMNEX 3; For each nexus... 

-LONG <PA/*X200> ; Store PFN. 

»LON ; Store floating nexus type. 

PA = PA + PERNEX 3; Increment to physical address of next nexus. 


.ENOR 
TENDM — FLOAT_NEXUS 


> Macro FIXED_NEXUS. 


N 
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INPUTS: 
PHYSADR = physical address of 1 or more contiguous fixed nexus slots 
PERNEX = amount 9 address space per nexus 
NEXUSTYPES = a List of fixed nexus types, enclosed in <> 

Vet FS a cae PHYSADR,PERNEX=0,NEXUSTYPES 

= 
. IRP ly NEXUSTYPES 
; <PA/*X200> 


-LONG TYPECODE 
PA = PA + PERNEX 


ENDR 
-ENDM = FIXED_NEXUS 


; For each fixed nexus type... 
3; Store PFN. 

; Store fixed nexus type. 

3; Increment to address of next nexus. 


Macro NEXUSDESC_TABLE = declare the beginning of a NEXUS descriptor table 


ist byte in table (at offset -5 from label) contains length of 
adapter yee socy field in CSR's on this bus. CNote for SBI Like 
busses, this is 1.) The next longword (at offset -4) in the 
table contains the Software defined bus type Byte defined in the 
high order byte of the longword Note for SBI Like busses, this 
value is 0, for the BI it is “x80. 


Define parameters that may be specified or used in macro invocation. 


00000000 BI_LIKE = 0 ; BI like bus. 
00000001 SBY_LIKE = 1 : SBI Like bus. 
00000001 SBI_CSR_LEN = 1 


Length of eye code field in adapter CSR's 
on SBI, CMI, etc 
00000002 


i" 
~m 


BI_CSR_LEN 


Length of type code field in adapter CSR's 
on BI. 


00000000 S$B1_BUS_CODE = 0 :; Software defined bus code for SBI Like busses. 
80000000 BI_Bus_CodDE = *x80000000 ; Software defined bus code for the Bl. 
«MACRO NEXUSDESC_ TABLE LABEL,BUS_TYPE=SBI_LIKE 
IF EQ,BUS_TYPE-SBI_LIKE 
-BYTE SBI_CSR_LEN 
FF -LONG SBI_BUS_CODE 
, IF EQ,BUS_TYPE-BI_LIKE 
-BYTE BI_CSR_LEN 
FF -LONG BI_BUS_CODE 
pete eERROR ; UNRECOGNIZED BUS TYPE, NEXUSDESC_TABLE; 
.ENDC 
LABEL 
-ENDM NEXUSDESC_TABLE 
FFFFFFFB CSR_LEN_OFFSET = =-5 ; Offset before nexus descriptor of 


SOoOOOCOCOCOCOOOOOOOOOOOC OOOO SOOOOOOOOOOOOCOOOOOOOOSOSOOOSoOO 

SOQOOCOCOOOGOOO OOOO OSOSSSSSOSOSCOSCCOGCGCOCCOooOCOoOoOoOoOoOoOooOoOoooooO 
PDD DPADPLDP DAD Ars SB BS BS BE ANA AAI AAAI IIOP PIPIPINIPIIY 2 2 SS OO Oe 
NOMS AN SO OD NAU EWI OS OOO NAME WIN SO OD NAME WN 0 OD NAU EW OOO NOUS win 


SOSSOCSCSOSOSOSOOSOOSOSOOCOSOSOSOSOSOOSOSOSOSOSOSSOSOSOSOSSOSOSOSOSOSOOSOOSOOOSCSoO 


SOOSCOCCOCOOSOOOOOOSOOOOOOOSOOOSOSOSOSOOOOOOOOOOOOoOSoOO 


; byte containing length of adapter 
3 he field in Raaster CSR. . 


INLADP780 = ADAPTER INITIALIZATION FOR VAX F580 16=SEP 
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FFFFFFFC $3 BUS_CODE_OFFSET = =4 
: 
i ; Macro END_NEXUSDESC. 
75° MACRO END _.NEXUSDESC 
og «LONG 
7 -ENDM END_NEXUSDESC 


1984 00:39:4 AX/VMS Macro v04-00 Pay 
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; Offset before nenus qescrigver table 
n 
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of lLongword containing software 
defined bus type to be or‘'ed with 
adapter type to produce NDT$_ value. 


; PFN=0 => end of nexus descriptors. 
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fi ¢ -SBTTL Adapter-specific data structures 
; Put a symbol for arrays built by macros in the correct psects. 


[eeeeerertereerere ADAPTERS tee KeHeKeeeeeene 


0000 -PSECT SSSINITSDATA 
ADAPTERS: ; Build adapter type code arrays here. 
-PSECT SSSINITSDATA! 3 User contributions in this .PSECT. 


3; End of ADAPTERS array. 
peeenereereeeeeeete End of ADAPTERS array ttttreererene 


oO 


o 
So 
So 
So 
=—OOOO NOUS WP 


peeeeeerereeeeeere NUM PAGES array t*ttttreeeenee 


-PSECT S$SSINITSDATA2 
: ; Build “‘number of pages to ong. array. 
-PSECT SSSINITSDATA3 : User contributions in this .PSECT. 


peeeereeerereeeeee End of NUM_PAGESarray ttteteeneenes 


peeeereeeeeeeeeeee INIT ROUTINES array t**ttteneeeene 
-PSECT SSSINITSDATA4 
INIT ROUTINES: ; Build ‘address of init routine’ array. 
«PSECT SSSINITSDATAS ; User contributions in this .PSECT. 
peeeneeeeeeereeete End of INIT_ROUTINES array **teereeenene 


z 
$ 


oOo 


To add a new adapter type: 
1) Add a new ADAPDESC macro invocation to the end of this List. 


-PSECT SSSINITSDATA,LONG 


0000 


Default interupt vectors for UNIBUS system devices 
(This errey is indexed by the RPB field RPBSB_DEVTYP, if the RPB field 
gpa eo is zero. f RPBSW_ROUBVEC is not zero, then RPBSW_ROUBVEC 


I tt I  § ~QOODOOOOOCOCOCOOOOOODO 


DOOCOOCCOCOOCOOCOOCSOSOSOOOOSOOCOSoOOOoSoSoOS 


CDOOCOCCOCOSOOCOOOOOSOOSOOOOOSOOSOOOOOOoOSoO 


: is used and this grray is not referenced at all. RPASW_ROUBVEC Ts set up 

3 by PQDRIVER. RPBSL_BOOTRO is set by VMB to contain the device name in 

; ASCII, not the vector number and device type, as it does on full 

3 architecture VAX machines. 

BOOTVECTOR: 
WORD a4g8 ; RKOG/E Interrupt vector 
«WORD “Xx ; RLOI1/2 Interrupt vector 

BUS_CSR_LEN: ; Static byte centeining the fength (in bytes) 
-BYTE 0 ; of the adapter type field in the CSR's of 


; the bus currently being configured. The 
; proper value for the bus of interest is 
; copied here, from the current nexus 

3; descriptor table, when we enter subroutine 
; CONFIG_IOSPACE. 


NOUS AN @OOONA UE WN OOD NA UE WIN $$ O OONOAUE Wir 


; Static lLongword containing the software 
defined bus type, of the bus currently being 
e 


SW_BUS_CODE: : 
- LONG : 
:; configured, in the high order byte. 


00000000 


groper value for the bus of current interest 
s copied here, from the nexus descriptor 
table, when we enter subroutine 


a ee ee ee ee te 
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ss 
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coososessssssssssssssssssssssssssssssssssssss 
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; Pr ; CONFIG_IOSPACE. 
4 8 DIRECT_VEC_NODE_CNT: ; Static longword that counts the number of 
9 «4 ; direct vectoring adpater nodes that we have 
00000000 4 rr -LONG 0 3 run across so far. 
44 D 442 SSSVMSDEFINED = 1 3; Define symbol that means VMS system software. 
0000080 p 443 NUMUBAVEC = 128 : ALLOW FO UNIBUS VECTORS 
D 445 ADAPDESC - : Memory. ** MUST BE 1ST IN DESCRIPTOR LIST ** 
OD 446 ADPTYPESSCNDTS. WERT GOANINDTS, REMAN, NDT$_MEMGI,NDTS_MEMIONI, - 
D 448 NDTS-REROSNIL, NDTS_MEM64EIL,NDTS_MEM64NIU,NDTS_MEM6GEIU, - 
90 44 NOTS_MEM641, - 
00D 450 DTS_MEMZSONIL ,NDTS_MEMZ5GEIL .NDTS_MEMZS6NIU,NDTS_MEM256EIU, = 
000 451 NDTS-MEMO561, 
6 D 42¢ NDT$~SCORMEM> 
9900 433 NUMPAGES=1 
00D 455 ADAPDESC = MASSbus. 
990 436 ADPTYPES=NDTS._ mB’ = 
9900 438 INI TAINS INI SMBADP 
$005 460 ADAPDESC = 
000D 461 ADPTYPES=<NDTS ub. Nove: _UB1,NDT$_UB2,NDT$_UB3,NDT$_BUA>, - 
0000 46¢ NUMPAGES= 
9090 463 INI TRTN=IN{ SUBSPACE 
0000 465 ADAFDESC - ti-port memory. 
9000 466 ADPTYPES=<NDTS_ nino” NBTS” MPM1,NDTS_MPM2,NDTS_MPM3>, - 
900 468 INI TRINGINI SMPMADP 
00D 130 ADAPDESC - DR32. 
900 47 ADPTYPES=NDTS_ pri2- 
oop crs INE TRIHS INE SDRADP 
0000 475 ADAPDESC - : C1780 
900 476 ADPTYPES=NDTS_ Cl. - 
900 478 WNITRYNSINESCIADP 
8 D 480 ADAPDESC - KDZ11 Processor 
p 4 1 ADP TY PES=NDTS_ Koit, 
0 D 4 § INI TRIN=IN{$KDZ211 
0D 484 
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Adapter-snecific data structures SYSLOA.S STNIADP.MAR: 3 ) 
DB «(4 5 
p i ; TABLES OF ADAPTER-DEPENDENT INFORMATION 
p 49 : THE TABLE OFFSETS ARE: 
493 ; SDEFINI ADPTAB 
90000001 495 APT AB. JDBUNITS: -BLKB 1 ; # UNITS TO SET IN IDB 
90008 1 496 ADPTAB-ADPLEN: .BLKW 1 : LENGTH OF ADP 
00000004 ; 3 ADPTAB_ AT YBES -BLKB 1 : ADP TYPE 
4 13 SDEFEND ADPTAB 
i 
D 08 : TABLES THEMSELVES: 
30D 04 ; 
Sop 5 MBATAB ; TABLE OF MBA CONSTANTS 
98 00D 06 -BYTE 8 3; # UNITS IN MBA IDB 
0030 OOF 0 .WORD ADPS$C_MBAADPLEN : # BYTES IN MBA ADP 
00 on 08 .BYTE ATS_MBA ; MBA ADAPTER TYPE 
0011 at DRTAB ; TABLE OF DR32 CONSTANTS 
91 011 11 BYTE 1 ; # UNITS IN DR IDB 
0030 0012 1g .WORD ADPS$C_DRADPLEN ; # BYTES IN DR ADP 
02 pote 1? -BYTE ATS$_OR ; DR ADAPTER TYPE 
0013 a CITAB : TABLE OF CI CONSTANTS 
gt 015 218 BYTE 1 ; # UNITS IN CI IDB 
0030 9016 21 WORD ADP$C_CIADPLEN : 4 BYTES IN CI ADP 
04 015 28 BYTE AT$_CT ; Cl ADAPTER TYPE 


Sz 
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CPU-specific data structures 11-SEP- SYSLOA.SRCJINIADP.MAR; 3 ( 
] 3 ~SBTTL CPU-specific data structures 
1 Q : To add a new CPU type: 
1 § : 1) Create a new nexus descriptor table, using FLOAT_NEXUS and 
! 3 FIXED_NEXUS macros. Put an END_NEXUSDESC macro at the end. 
ae 
13 ¢ CPU_ADPSIZE: 
O04EC* 1? Z » WORD ADPS$C_UBAADPLEN+UBINTSZ+<NUMUBAVEC #4> 
Be 
318 ? : Declare the beginning of a nexus-descriptor table. 
018 39 ‘ NEXUSDESC_TABLE LABEL=NEXUSDESC 
0 41; 
tg ; Describe all possible nexuses on an 11/780. 
90000001 90 4 * SBI_CPU = 1 
a FLOAT. NEXUS 
0020 23 = YSADR=I10780$AL_IOBASE, - 
0020 548 NUMNEX=10780$AL_RNEX, = 
0020 549 PERNEX=10780$AL _PERNEX 
QOA0 50 END_NEXUSDESC 
Q0A4 52 
OAS 4 
OAS 61 
OAS 659 
OAS $88 
OAS 8 2 
ad 709 ' 
00AS 708 : Nexus ‘descriptor’ arrays -- these arrays hold the nexus-device type and 
OOAS 709 ; virtual address of every adapter on the system. The arrays, CONFREGL and 
QOAS 710 ; SBICONF, are allocated enough space to hold the maximum number of adapters 
OOA4 711 ; that can be attached to any CPU. When the code discovers how many adapters 
OAS ue 3; actually exist on the system, it will allocate space from non-paged pool 
ae af : and move a permanent copy of these arrays into that space. 
00000040 00A4 715 MAXNEXUS = 64 
AS at CONFREG: ; Byte array of nexus-device type codes.. 
000000E4 7 4 sasconts” LKB MAXNEXUS 
OO0001E4 Ort ns conFREGL Test MAXNEXUS ; Longword array of VAs of adapter space. 
O00002E4 O1E4 43 “BLKL MAXNEXUS ; Longword array of nexus-device type codes 


PSegese® lang negunaarion von wan YTon yecezsigee OES HNC StH Mhaes TH] 
EA -SBTTL Message strings 
SGHHER 38 nas 
3 é3 $3 rt} 6g 68 $3 3 ee 23 20 ES eASCIZ <CRO<LF>/ZEXECINIT=-F-Insufficient SPT entries/<CR><LF> 
SRRES OER SAE 
op 39 BADUMR : 
20 54 49 GE 49 4 $3 28 45 A‘0D 731 eASCIZ <CR><LF>/ZEXECINIT=F-UNIBUS memory does not start at 0/<CR><LF> 
SECRPEPE LEER 
a8 G5 AGE SS MHEG A eh Bt 


IN 
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ze and map nexuses 11-SEP- SYSLOA.SRCJINIADP.MAR; 3 (7) 
-SBTTL INISIOMAP, Initialize and map nexuses 


p++ 
3; FUNCTIONAL DESCRIPTION: 

This routine is executed only once, during oyetes initialization. 
It loops through ot) nexuses on the system, geting for 
eden 7 , - it finds an adapter, it maps its 1/0 space and 
nitia ‘ 


wueseze jlBten 


wm 


INPUTS: 
BOOSGL_SPTFREL = next free VPN 

MMGSGL_SPTVASE = base of system page table 

EX PB - address of reboot parameter block 
RPBSL_ADPPHY(RPB) = PFN of boot adapter space 


$: 
RO = SS$_NORMAL 


For each adapter found, its accessible 1/0 space is mapped to virtual 
addresses. n ADP (Adapter Control Block) is built. and the hardware 
adapter is initialized. 


OUTPUT 


The arrays CONFREG (a byte array of nexus-device type codes, defined 
by NDT$_ symbols) and SBICONF (a longword array ) 

virtual addresses that map adapter space) are initialized. Pointers 
to these orreys are stored in EXESGL_CONFREG an 

MMGSGL_SBICONF. The number of entries in these two parallel arrays is 
stored in EXESGL_NUMNEXUS. 


Since BI devices have a 16-bit device type code, a new CONFREG array is 
constructed. This is a longword array called CONFREGL. 


Several locations in the RPB that describe the boot device are init‘ed: 
RPBSL_BOOTR1 = holds index into CONFREG and SBICONF for the boot 


adapter 
RPBSL_ADPVIR - holds VA of boot device adapter's register space 
RPBSL_CSRVIR - holds VA of boot device's register space 


~“ 
ooo 


Bete Ge Ge Ge Se Ge Ge Se Se Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge 
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76 
6 
19 
771 
oe 
0000 ae 
p of? INISIOMAP: : 
OFFF 8F 68 rf PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9I,R1I0,R11> 
719 ; Set up common inputs to CONFIG_IOSPACE subroutine for the CPU-specific code. 
2g QOOO0O000'GF oD 7? ? : MOVL G“BOOSGL_SPTFREL,R ; Get next available VPN. 
5 sae ‘GF OD 7? § MOVL G*MM Hy _SPTBASE ,R ; Get base of systen Page Table. 
0508 8 1 f MOVAL (R3)CR2),R3 3; Compute SVASPT. 
1 4 ASHL #9,R2,R ; Convert VPN to VA. 
52 0000800 ‘ee 1A 785 BISL #VASM{SYSTEM,R2 ; Set system bit. 
4 04 , Se . § CLRL ; Clear index into CONFREG and SBICONF. 
59 oo aes 8 a Tn MOVL or SrEseL RPB,RI ; Get address of RPB. 
A SC AQ F7 8F A 789 ASHL #-9,RPBSC_ADPPHY(R9),R10; Get PFN of boot adapter space 
GF ES'CF DE 9 791 MOVAL W*SBICONF>G°MMGSGL_SBICONF ; Set pointers to local copies 
*GF AG'CF ODE O88 MOVAL W*CONFREG,G*EXESGL CONFREG ; of these arrays for init routines. 
*GF 1E4'CF ODE 42 79 MOVAL W*CONFREGL,G*EXESGC_CONFREGL ; ... 


vor~b02 


56 


ADAPTER 
INITADP 7? 
48 
48 
48 
48 
48 
DE 4 
D4 2 
10 45 
if 
Be 
DO O05 
05 O05¢ 
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SYSLOA. SRE SINIADP.MAR: 3 
INITADP_780, _750, _730, and _UV! 


/0 address space for he 11/780, 11/750, 11/730, and Micro-VAX I cpus 


s statically defined 


n their respective nexus descriptor tables. 


W*NEXUSDESC ,R6 i Get address of nexus table. 
1 ignal use Ist page of SCB. 
CONF I1G_IOSPACE : Configure processor I/O space. 


CREAT ARRAYS reate Comnret and SBICONF arrays. 
#*M<ROUR1,R2,R3,R4,R5, RO. R7,R8,R9,R1IC,R11> 
#1,R0 s Set Peep be. "ataeel 

; Return. 


14 In 
(8) ve 
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NIT 
E SYSLOA. SRE SINIAD P.MAR;3 
1 
1 
1 
4 
4 
4 
4 
5 
5 
5 
5 
5 
5 
5 
5 
5 
6 
6 
6 
6 
6 


I 
SPAC 
9 
9 
: 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
G 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
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«SBTTL CONFIG_IOSPACE 


CONF IG_IOSPACE 
Given a nexus deecriptor table, which descr Shes what ‘'‘nexuses’’ or 
slo ots" are available on a proves to hold 1/0 adapters, find and 
initialize all adapters on the system. 


Inputs: 

R2 - next available virtual address, to be used for mapping 1/0 space 

R35 = address of PTE sence lated with VA in a? —_— . 

R4 = Current index into CONFREG and SBICONF arrays (should be 0 the 
first time CONFIG IOSPACE is tt 

RG - address of nexus descriptor ta 

- address of Restart Parameter Block (RPB) 

R10 = PFN of boot adapter space 

Ri1l= page offset from beginning of SCB; tells which page of the SCB 
to use for this set of nexuses (passed to routines that init ADP) 


Sutputs 
RZ RS, »R3 * - updated 
. R11 = preserved; all other registers 99 potentially modified 
FmtO - initialized with adapter NDT$ code for each nexus 
SBI CONF - initialized with adapter space VA for each nexus 


ONFIG_IOSPACE: 
; Main loop. Map and initialize all adapters on system. 


DBOOQOOOCOOOGOOCOCOCOOOOSOSOOCOOOOOoOO avV 
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DDD PPP SUIT «Oe TT 
Be a Ba De ie Be De es Be i i BB eB ie he i ee | 
Sete eee yes Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge 
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FB A6 «90 MOVB CSR_LEN_OFFSET(R6),=- : Move length of adapter type field 
0004 'CF w*B0S_cS : _in CSR's to static location. 
FC A600 MOVL BUS CODE fore - 3 Move software defined bus type code 
0005'CF 04 W*SQ_BUS~ CODE : to static longword. 
68 NXT_NEXUS: ; For each nexus... 
58 86 OD MOVL (R6)+,R8 3; Get PFN of nexus. 
os... 3 ; BNEQ TEST_NEXUS : If PFN non-zero, go test the slot. 
0 3 , RSB 3; If 0, we've found all nexuses. 
8 3 Read configuration register to determine if anything is present at this 
; Nexus. 
0 
0 fest _NEXUS : 
BISL3 #PTESM Py ee Tonporerity assosiaye e ve in R2 with 
SPRICTINI 641 : Protect Slitetes at, trom non- 


‘< <ACH mS NEXM!MCHKSM_ LOG>; existent memory machine checks. 
cne)R ; Read adapter configuration register. 
aaa og” End of protected code. 
Ai GET_TYPE 


Clear TB of temporary mapping. 

; Branch if no machine check occurred. 
; No adapter present at this nexus. 
CLRB W*CONFREGCR4) Store yrkneye type in CONFREG 
CLRL W*CONFREGLCR4) 3; and in CONFREGL 
CLRL R5 ; Use general memory type to map 
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; one page of 1/0 space. 


56 9% £9 ADDL2 #4,R6 ; Step past type code in nexus table. 
9 } BRB MAP_NEXUS ; Go map 1/0 space for this nexus. 
; Execution continues here if adapter was present. 
GET_TYPE: 
57 86 rt MOVL (R6)+,R7 3; Get nexus-device type from nexus table. 
4 «(1 BNEQ GET_GEN_TYPE : Branch if fixed slot. 


float togetyee slot. Use type from configuration register. 
Determine if type in configuration register is 8-bits or 16-bits. 


>> Prrrrrrrrrroo 


MVIVUIVIVIVANOOOOCOMm® 


Q004'CF O11 91 CMPB #1,W*BUS_CSR_LEN Determine Length of adapyer type 


field in CSR contained in 


>> 


POW — 
OOCCCOOCOSCOOSOOCOOCOOOCOOOOOOOOOOOOOOOOOOO 
OOOO COCOCOOOCOOOOCOOOOCOOOOO 


T 
E 
i 
a8 
995 
399 
95 1 44 BEQL 10$ ; EQL implies 1 byte (8-bit) field. 
57 >. AC 99 MOVZWL R1,R7 ; BI_LIKE, so use word instruction. 
93 1 AF 1999 20$ : Skip byte instruction. 
57 5 $) ! 4 108: MOVZBL R1,R7 ; Use byte instruction to get type. 
57 OO0S'CF CB 084 08 " -« BISL = W*SW_BUS_CODE,R7 : Or in software bus code. 
0B9 1 89 : Here R7 has hardware adapter code or'ed with software bus code. 
94 : S ; Translate specific nexus device type code into general adapter type code. 
0B9 1909 GET_GEN_TYPE: 
OOAS'CF44 57 90 00B9 1Oiy MOVB R7,W*CONFREGCR4) 3; Save nexus-device type in CONFREG. 
O1E4'CF44 57 dO OBF 1011 MOVL R7,W*CONFREGLER4) ; CONFREGL also filled in. 
55 D4 ace 13i6 30s CLRL RS 3; Clear loop index. 

50 OO00'CF4S ODE te 1044 : MOVAL W*ADAPTERSCRS5],RO : Get address of adapter type code. 
3200" ¢F 9F OOCD 1015 PUSHAB W*NUM PAGES ; Push addr of end of ADAPTERS array. 
8E 0 D1 00D1 1918 CMPL RO, (SP)+ ; See if we went beyond array. 

3 1E 00D4 101 BGEGU END NEXUS ; unrecognized adapter, do not map. 
60 7 D1 O00D6 1018 CMPL R7, CRO) ; oqepser type match? 
04 #13 00D9 a BEQL 40$ : If EQL yes, adapter type match. 
55 06 00DB 1020 INCL R5 ; Increment loop index. 
E8 11 OODD 1021 BRB 30$ ; Look at next adapter. 
BB 185g os 
DF 1024; 
44 ' 5 ; Store boot parameters. 
SA 38 01 DF 1 : ‘ CMPL R10 : Does PFN match boot adapter's PFN? 
1 1 ce 1 BNEQ MAP_NEXUS 3 No; continue. 
$8 AQ 3 D E4 1031 MOVL R2,RPBSL_ADPVIR(R9) 3 Store VA of boot adapter space. 
0 Ad 4 0O €8 1 § MOVL R4,RPBSL_BOOTR1(R9) ; Store boot adapter nexus number. 
51 54 a9 OD 00 EF ; { 7 EXTZV Fd benpuytn _ : Get offset into UNIBUS/QBUS 1/0 page. 
58 AD 1000 C241 «—«9E:«COOF2 «1035 MOVAB cgs3i25 (Re) ERT) *. : Set VA of UNIBUS/QBUS registers. 
Fo 1 6 RPBSL_CSRVIR(R9S : 
Se 
4 1 ; 
F 1040 ; R5/ general adapter type; index into ‘‘general’’ adapter arrays. 
F9 1 ty : For Beck eden ter as 8 , 


INIADP780 
04-002 


OE4*CF44 


1 
51 


0000' CF 
0000' CF 


00 81 


IALIZATION FOR VAX 44/380 16-SEP-1984 00:39:46 VAX/VMS Macro Vv04-00 Pp 17 IN 
1FaSEEi SRS PO:58i98 PaNeYRS Sacco yoreoo 3 Pease 12, vo 


the #o pages specified in ADAPDESC macro 
n to initialization routine specified in ADAPDESC macro 
MAP_NEXUS: 
MOVL R2,W*SBICONFCR4) 
MOVZWL W*NU . PAGESCR5),R1 
BSBB MAP_PAGE 
we iett. ROUTINESCR5],R1 
Beat END.N 
eURT SEATS 


o- 


PEANUT 


Save VA of adapter —— in SBICONF. 
Get number re pegee to map. 
aoe the 1/0 pages 
Ger address of initialization routine. 
tiali git routine specified? 
te i 
Call initialization routine. 


Increment connes and SBICONF index. 
Go do next nexus 


aD - 4 
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R4 
BRW NXT_NEXUS 
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.SBTTL CREATE_ARRAYS 


Inputs: 
R4 = Number of nexuses on the system, 
CONFREG and SBICONF have been init 


Outputs: 
RS destroyed 
EXESGL *CONFREG. points to a copy of the CONFREG array in non-paged pool 
MMGSGL-SBICONF points to a copy of the SBICONF error in non-paged pool 
EXESGL-NUMNEXUS contains the number of nexuses on the 


ialized. 


system 


CVPR e Se Se Ge Ge Ge Ge Ge Se Ge Se Se Sse Ge Sete 


REATE_ARRAYS: 


OOO 00090009 09 909090908 SI NINN NINN NIOOOO 


NAME WN MO OO NAU EWN $$ SO ODNAU EWN O OONOUE WN OOOO 
=z 
So 
< 
> 
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Y 
1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
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QO000000'GF 54 »d0 OVL RG ALI 6 NUMNE XUS ; Store number of nexuses on system. 
51 OC Ab44 ODE MOVAL 12(R4)CR4],R1 : Allocate n bytes for CONFREG plus 
3; 4n bytes for SBICONF + header 
51 6144 (R1)CR4],R1 3; Another 4n bytes for CONFREGL. 
02A7 BSBW ALONPAGD : Get pool for CONFREG and SBICONF. 
CLRQ (R2)+ : aloes aout unused 
86 B0 MOVW VL ty size 
82 0763 BF B80 MOVW = #<DYNSC CONF 28> :DYNSC_ init? tha) ; Set type and subtype 
00000000'GF 62 9E MOVAB Rs? RlRt cn Store aceress et with CONFREG. 
1 6244 9 09 MOVAB (R2)ER4I,R1 : Two steps to C 1st, SBICONF, 
00000000'GF 51 D 4 09 OVL 1 ony $B1 CONF Store address of system SBICONF. 
OO000000'GF 6144 OE 4 9 MOVAL CRADER G"EXESGL_ CONFREGL. ; ; And address of system CONFREGL. 
14 5 5 09 PUSHR #*M<R2 ; Save pool address and nexus count. 
62 OOAG'CF 54 53 109 MOVC3 Rervttont Rec, (R2) : Copy CONFREG to pool. 
14 BA 5 09 POPR “en R4> 3; Retrieve pool address and. nexus count. 
51 54 04 C5 0158 109 MULL3 Har of : Number of bytes in SBICONF 
a? oe 5 10 MOVL R1,-(SP) : Save, SBICONF size = CONFREGL size 
6244 OOE4'CF 51 28 6 10 MOVC3 R1,W*SBICONF,(R2)CR4) 3 4 4 SBICONF to pool. 
1 8E 0 6 10 MOVL SP)+,R 3; Restore size of BI CONF and CONFREGL. 
63 O1E4'CF 51 2 8 8 Movc3 R1,W*CONFREGL, (R3) ; Copy CONFREGL to pool. R3 is output 
1 § ny SBICONF MOVCS, so SBICONF and 
4 19 ; CONFREGL must be adjacent. 
05 7 10 RSB 


CREATE_ARRAYS 
Move the local CONFREG and SBICONF arrays into non-paged pool. 


R2,R3 updated; R1,R8 destroyed; all other registers preserved 


N 

INIADP780 = ADAPTER INITIALIZATION FOR VAX "1/380 *6-SE AX/VMS Bae v04-00 Pa 19 
yo4~002 MAP_ PAGE iFrgEp 1982 9839;78 FANEVRS Bacco VOR—OO 9 aD 

: -SBTTL MAP_PAGES 

: INPUTS: 

3 R1/ Number of pages = map. 

3 R2/ VA of page to ma 

: R3/ VA of system page “table entry to be used. 

5 R8/ PFN of page(s) to map. 

: OUTPUTS: 


MAP_PAGES: 
BISL3 #<PTESM_VALID!PTESC_Kw>, RB, (R3)+ 
; Map a page 
5 D6 INCL R8 3 Next PFN. 
5 0200 ¢ 9E MOVAB 512(R2),R2 3; Next VA. 
9000000" GF D6 INCL G“BOOSGL_SPTFREL ; Next free entry. 
00000000'GF 00000000' oF D1 8 CMPL G*BOOSGL_SPTFREH, - ; Check for no more system page 
G*BOOSGL_ SPTFREL ; table entries. 
o% 15 BLEQ ERROR_HALCT ; Branch if out of SPTEs. 
pB 51—sF 5 SOBGTR R1,MAP_PAGES 3; Map another page. 
05 RSB ; ALL done. 


ERROR_HALT: 


B 
ERROR_HALT_1: 
CLAL R11 Indicate console terminal. 
JSB G*EXESOUTZSTRING Output error message. 
HALT 3; seeee FATAL ERROR teeenee 


51 O2E4'°CF 9E W*NOSPT,R1 Set error message. 


Pp 
A 
83 58 90000000 8F (C9 
0 
0 
0 
0 
0 
0 
0 
0 
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5B D4 
00000000 ' GF 48 
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N 
-SBTTL INISUBSPACE 
Map UNIBUS space; initialize UNIBUS ADP. 


SO 


; INPUTS: 
: R2 = VA of next free system page 00 
R35 = VA of sy ystem page table entry to be wees. = map VA in R2 
R4 = nexus identification number of this adap 
-8(R6) - PFN of this UNIBUS adapter's register space 
; OUTPUTS: 


edt oe spece is mapped. 
s called to build an ADP block and initialize UNIBUS 
coeotee hardware. 


I 


NISUBSPACE: 
58 OIES'CF44 DE MOVAL y COMr OE a, (202-88 ; RB => CONFREGL slot. 
58 68 0O 00 EXTZV #0, oR8 ; Get UBA number. 
m3 09 8 ASHL #9,R8,R8 ; Position UB number. 


58 001009FO 8F CO ADDL #<10780$AL -UBOSP+*0760000/*x200>, R8 


; Get PFN of Ub 1/0 page. 


nn 
pew fe hwo lo lawl ale lol olelelolelelolelelelelelelelelelelelelel ele) ale alee a) B 3 


a hh 8 hh 8 
OOOOMOODWDWIWIOIVIOIOIOIO>r>r>r>r>rrrrrrrr>rrrr>r>r>rrr 
WWMM 9 SOOO OOO OOD Waa 
a a a kk a 


i 
NOUS WN O10 & ONO FU ONO UNE AN O OONOUE Wi" 00 


WWAIWWIWIWIWIWIWIN = OO0O00 OO OW 000009 09090909 INI INN 


00 
3s ww MOVL #16,R1 ; Number of pages to map (UB/Qbus space). 
FFBO 30 BSBW MAP_PAGES ; Map 1/0 pages. 
> Call adapter initialization routine. 
: BSBW INISUBADP : Init ADP block. 


: Initialize adapter interrupt vectors in System Control Block. 


58 00000000'GF 00 MOVL G*EXESGL_SCB,R8 ; GET SCB ADDRESS 


: Following ASSUME breaks if the ADP Length is not a multiple of 4, thereby 
3 causing the vectors to NOT be long word aligned. 


ASSUME ADPS$C_UBAADPLEN/4*4 EQ ADP$C_UBAADPLEN 
MOVAB ADP$C yeAnery Ene INTSZ(R2),R3__; LOCATE VECTORS 
MOVL DP$L_VECTO 


, - AND RECORD IN AD 
AXFFFE KDB Sw PBITMAP(R2) ; MARK DATAPATHS 1-15 AVAILABLE 
NTS2(R3),R ; BASE OF INTERRUPT CODE 
.R4,R5> : SAVE MOVC REGISTERS 
ASE, (R3) - COPY INTERRUPT CODE 
JR4,R5>  ; RESTORE MOVC REGISTERS 


53. O2EC* 9 
wo BE 


& 
60 4g FFFE 8F 
5 conf E 


63 0340°CF  0094° 


INIADP780 = ADAPTER INITIALIZATION FOR VAX 1/980 16-SEP-1984 00:39:4 AX/VMS Macro V04-00 Pa 1 
IN} ADEs INISUBADP = BUILD ADP AND INITIALIZE UBA 11-SEP-1984 90:39:48 YOYSLOA.SREIINIADP.MAR: 3 = (day 
if } i a ~SBTTL INISUBADP = BUILD ADP AND INITIALIZE UBA 
1¢ 134 : INISUBADP ALLOCATES AND FILLS IN AN ADAPTER CONTROL BLOCK, INTERRUPT 
1C3 1342 ; DISPATCHER AND CONNECTS THEM TO THE PROPER SCB VECTORS. A CALL IS 
1€3 1345 ; THEN MADE TO UBASINITIAL TO INITIALIZE THE ADAPTER HARDWARE. 
IEE TES Favor 
1¢3 («1 $ : "RG = nexus identification number of this adapter 
ie ! ‘8 ; Ril= offset from beginning of SCB to correct SCB page for this adapter 
1€3 1349 ° 
\¢ } 29 INISUBADP: 
OFF 8F BB + } 26 PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8> ; SAVE RO-RB 
Vee ! 34 : Allocate and initialize Adapter Control Block (ADP). 
51 0019'CF * 1¢7 «1 36 ; MOVZWL W*CPU_ADPSIZE,R1 ; PICK UP LENGTH OF ADP 
0295 0 icc «6135 BSBW ALO ; ALLOCATE SPACE FOR ADP 
08 A 1 BO 1CF 1358 MOVW R1,ADP$W_SIZE(R2) ; SET SIZE INTO ADP BLOCK 
OA A 01 90 1 ; 1359 MOVB YNSC_ADP, - : AND SET TYPE OF BLOCK 
1D? 1360 ADP$B_TYPE(R2) 
OE A2 01 BO 107-1361 MOVW #AT A, ° ; SET TYPE OF ADAPTER 
1DB 1 6¢ ADPS@ ADBT YPE(R2) 
62 OOES'CF44 00 ! : : a7 MOVL ae eee o ; SET VA OF CONFIGURATION REG 
OC A2 54 B0 : ! } ri MOVW R4, ADP$W_TR(R2) ; SET TR NUMBER FOR ADAPTER 
50 14 ae D 165 1 8s MOVAL ADPS$L_DPQFL(R2),RO ; ADDRESS OF DATA PATH WAIT QUEUE 
60 5 D 169 1 oe MOVL a(R ; INIT QUEUE HEADER 
04 A0 50 00 : 6 ! $) MOVL RO,4(RO) 3 
50 30 A DE 1 1371 MOVAL ADPSL_MRQFL(R2),RO : ADDRESS OF MAP WAIT QUEUE 
60 : D 1F4 1 ts MOVL : ; INIT QUEUE HEADER 
04 AO D 1F7 «(137 MOVL RO,4(RO) 3 
A2 4 1FB 1374 CLRL ADPSL LINK(R2) ; ZAP ADAPTER CHAIN LINK 
FOFF*® 30 01 F } o BSBW ADPLIAK : LINK ADP TO END OF LIST 
ey 8 
1 1378; 
1 ! 79 
1387 
1389 
1390 
1391 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


F R1,R2,R 
F MOVC3 #UBINTSZ W°UBAI NTE S 
F POPR #°M<RO,R1,R2.R 


We 


3 Now check for ~ UNIBUS eenery that may be on the adapter. First we must 
; disable all the UNIBUS Map Reg sters so that there is no conflict in 

3 which memory will respond. Then we check ait 248Kb of potential memory in 
3 UBA represents 16 UMR's or 


INJADP780 = ADAPTER INITIALIZATION FOR VAX S380 “SEP-1984 00:39:46 VAX/VMS Macro v04-00 P 
vara ti INT SUBADE - BUILD ADP AND INITIALIZE UBA 1$-3 sats 7 90:38:78 YO SVOA. RES ENL ADP AR: 3 — (id 
Heo arog care BE RBSR lege Oval *RfOGtRBSERGI_.RO Pes PUTe ist VECTOR RODRESS 
1 NS 5 f 5 1405 OVL RO. ADPSL AVEC OR(R3) + SAVE ADDR OF ADAPTER SCB VECTORS 
6 1'A E 14 6 MOVAB B*UBAIN alt ),(RO)  : STORE VECTOR FOR BR4 
40 A 1'A E 14 MOVAB B*UBAINT5+1(R } 4 (RO) : STORE VECTOR FOR BRS 
9080 C 1'A —E 0240 14 : MOVAB BOUBAINTG#1(R ); 9 (RO) : STORE VECTOR FOR BRG 
0cO CO 61°A 46 14 MOVAB BURA NT7+1(R3).192(RO) : STORE VECTOR FOR BR 
35 D 4C 141 MOVL —ADPSL CSR(RE) rb : GET UBACSR ADDRESS 
gar C GF 141 ADDL —- RO, B*OBAINT REL(R3) + ADD CSR VA 
AM GS Be 1 AE REREAD, FCA Pg 
gAvA C B 1414 ADDL R ‘BPUBAINTIREL (R ) : IN THE INTERRUPT DISPATCHERS 
0u89'CS BO F 141 MOVL  R2,UBAINTADP(RS) [SET ADDRESS OF ADAPTOR CONTROL BLOCK 
6000 CF 64 1416 MOVAB W*EXESUBAERR_INT,- 
009 3 68 141 UBAERRADR(R3) ; SET ADDRESS OF ERROR HANDLER 
01°A3) «-9E «(0268 1618 MOVAB B*UBAINT4#1(R3) = 
44 A 6 141 ADP$L UBASCB(R2) ; SAVE 4 SCB VECTOR CONTENTS 
21'AS = O9E 1420 MOVAB B*UBAINT5+1(R3),- 
48 A 73 1421 ADP$L_UBASCB+4(R2) : DITTO 
41'AS) «= 9E (027514 j MOVAB B*UBAINT6+1(R3),- 
4C Ag 78 14 ADPSL UBASCB+B(R2) : DITTO 
gi°A 9E 027A 1426 MOVAB B*UBAINT7+1(R3),- 
54 , 5 dO gp 14 é MOVL a iDBSt UBASCB+12(R2) : OE Py ADP ADDRESS 
2 62 00 Be 14 MOVL  ADPS$L_CSR(R2),R t VIRTUAL ADDRESS OF ADAPTER 
04 A2 7C000000 BF D0 1428 MOVL #*X7C §3006 ‘nls CR(R2): DISABLE ALL UMR'S 
00000000'GF 16 8p 1429 JSB ec Msyvapre tne = + ADDRESS OF SPTE THAT MAPS ADAPTER 
sa ac “20 28 BO 0597 1435 ROVE CBRMS ERB ene eS Gente OF PTE RAPPING 110 SPACE 
52 dO 3 1838 MOVL are =UBASPTE*4 (RS) COPY ADP ADDRESS BACK TO R2 
53 00000000'GF DE 0 OF 1434 MOVAL G*UBASUNEXINT,R3 : GET ADDR OF UNEXP INT SERVICECIN EXEC) 
54 OO00'CF ODE he i MOVAL W*UBASINTO,R4 : GET ADDR OF SPECIAL VECTOR 0 ROUTINE 
AB 1437; 
0 AB 1438 : INIT UB VECTORS TO UNEXPECTED INTERRUPT SERVICE 
50 10 A2 0D AB 1440 ° MOVL §ADP$L_VECTOR(R2),RO ; GET ADDRESS OF VECTORS 
80 54 D AF 1441 MOVL  R4,(RO)¢ t SPECIAL CASE FOR VECTOR 0 
51 7F BF 9A O2B2 1 é MOVZBL #<NUMUBAVEC-1>,R1 > REST OF VECTORS 
80 53 D B6 1443 10$:  MOVL 3,(RO)+ : FILL VECTOR WITH UNEXP INT 
FA 51 OF : 4 SOBGTR R1.10$ : FILL ALL VECTORS 
BE 140? 
BC 1507 
BE 1836 
Se 
BC 1 § 
a 
it 
Be 1888 
BC 1654 
BC 1655 


AOOIOOOOOAOOAOOOOCeN™ 


; 8Kb chunks, since each disable bit on the 


INLADP780 = ADAPTER INITIALIZATION FOR VAX 1/780 -SEP-1984 00:39:4 AX/VMS Macro V04-00 P 3 
yoa-b02 INISUBADP - LD ADP AND INITIALIZE UBA 1%: eats ri 90:38:48 EEYSLOA. SREDINYADP. MAR; 3 sg ii 
; 8Kb of Soares The number of registers is stored in the ADP and the 
: corresponding number withdrawn from the UMR map in the ADP. 
56 4 on ADPSL CSR (R2) RG ooce wp atepsee petater dean 
ro out number o 
578 agg gogo Sy Feats Res a 9) SBE bageiog One 
2 ) 
54 20 ak 00000800 BFE SUBLS #512 635(S6) RG R4 = PFN of first page of UNIBUS 
D PUSHL Save contents of SPT 
rH ) OVL R4,R3 : Gopy starting PFN 
D #31,R5 1 8Kb chunks to test 


; Invalidate TB 


o 


#<PTESM VALID!PTESC_Kw>, 
R4, (REY 


DOONAN AHMMMMMOVIOOCOCWWWIOIwOD 


: 
F 
4 
: 
54 
iF 

90000000 : C 
8 4 
7 
F 
53 
31 
3h 
Al 
be 
55 
68 


: Address to chec 


4 ; Map each page of UNIBUS 
0 00 R7,RO 4 O Theek 
FDOF' BSBW =: EXE STEST_CSR Validate it 
0D E9 BLBC OS Not there 
54 D1 CMPL R3,R4 ; First time in? 
13 BEQL 60$ Yes, skip next test 
be TSTL R1 ; Any registers already? 
1 BEQL 80$ ; No, memory not start at 0 
51 10 9E ops: MOVAB 16(R1),R1 Yes, up the count 
54 10 4 $: MOVAB 19822 2S ; Map Next 8Kb (16#512) 
d8 F SOBGTR R5,50$ ; Loop until done 
8EDO OPL (RB) ; Restore old contents of SPTE 
INVALID R7 ; Invalidate TB 
0256 C2 51 B80 MOVW R1,ADP$W_UMR_DIS(R2) Record number disabled 


Initialize fields for new UBA map register allocation. Make it appear 
that we have one contiguous array of 496 available map registers. 
To do this we set ADPSL_MRACTMDRS to one (the number of active 
map rogiecer descriptors for distinct sent tqueus areas) 
ADPSW_PRNREGARY(0) to 496 (i.e the number of registers in this 
contiguous range) and ADPS$FREGARY(0) to 0 (i.e. the first register 
n the range is register 0) 


MOVL. #1, ADPSL_MRACTMDRS 
SUBW3 1.4496, ADPSW_MRNR 
MOVW 1. ADP$U_MRFREGARY 
MNEGW #1, ADPSW~MRNF ENCE ( 
MNEGW #1, ADPSW~MRF FENCE ( 


) 3.1 active map descriptor 
64 A2 0 RY(R2); for a range of 496 registers 
0 ) 3; starting at register zero. 


which preceed 


Also init fences’ 
the two descriptor arrays. 


695 
696 
697 
$7 
ae 
a : 
oe ; Initialize adapter hardware. 
54 62 00 16 ? MOVL  ADPSL_CSR(R2),R4 ; Get CSR address to init 
FCCE’ 30 71 
£18 
71 
7 
f 
7 
726 
f 5 
458 


CE BSBW UBASIRITIAL And initialize adapter 
OFF 8F BA 


POPR #°M<RO,R1,R2,R3,R4,R5,R6,R7,R8> ; Restore registers 
RSB ; Return 


: Error if UNIBUS memory not start at location 0 


B0$:  MOVAB W*BADUMR,R1 ; Set error message 


51 om 9E ’ 
FESF = 31 BRW ERROR_HALT_1 ; Put it out 


a et a a a a tt a = a 2s — — 5s 2 2s 2s — 2 > bs — bs 2s a tn as as a te te tt tt 
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F 
INLADP780 - ADAPTER INITIALIZATION FOR VAX 5 1/380 SEP=1 146 VAX/VMS © V04-00 Page 24 IN 
yO4-002 INISUBADP = BUILD ADP AND INITIALIZE U a. 1-3 EP=1 1386 90: 33 i$ EOYSLOA. SR SRE SINIADP.MAR: 3 . (ia) vo 
, 3 H 
F 5 ; UBA_INTERRUPT SERVICE ROUTINES. ONE COPY OF THESE ROUTINES IS 
f i 2: MOVED INTO NONPAGED POOL AND RELOCATED FOR EACH UBA. 
F 1735 ; see NOTE #ee® THE CODING ncseckhs ce FOR DISPATCHING ON UBA INTTERUPTS 
, ae : t 1S ASSUMED IN THE MODULE MC : «MAR. THE ASSUMPTIONS ARE MADE SO 
F 7 : THE MACHINE CHECK HANDLER CAN IDENTIFY A CPU TIMEOUT W 
Be : BICL3 INSTRUCTION IS READING” rie UBA'S BRRVR REGISTER. 
F 1739 ; THE ASSUMPTIONS MADE ARE THAT THE VALUE OF THE VIRTUAL ADDRESS OF THE BRRVR 
F 1740 ; REGISTER IS AT AN OFFSET OF 10. BYTES PAST THE INTERRUPT VECTOR ENTRY POINT 
F 1741 ; THAT THE PC OF THE INSTRUCTION ACCESSING BRRVR IS 3 BYTES PAST THE INTERRUPT 
F 124 : VECTOR ENTRY, AND THAT R4 AND RS ARE SAVED ON THE STACK AT THAT POINT. 
F ben * 
F 1745 -ENABL LSB 
F 1246 “ALIGN QUAD 
40 1747 UBAINTBASE: ; BASE OF UBA INTERRUPT DISPATCHERS 
e 99900090 4 1748 UBAINT4=, “UBAINTBASE 0 INTERRUPT DISPATCH LEVEL 4 
34 40 174 MOV R4,=(SP) SAVE REGISTERS 
54 00000030 9F 7EFFFEOS F (CB 0343 1750 BICL C3 WATE EEFEOS, , @#UBASL wed. R4 ; READ VECTOR REGISTER AND CLEAR BITS 
Q000000A 034F 1731 UBAINT4REL=.-UBAINTBASE- : OFFSET TO ADD UBACSR VALUE 
52 4F 17 : MOVa = R2, = (SP) ; SAVE | REGISTERS 
554" AFG 3 38 175 MOVAB B“VECTABCR4I],R5 : GET ADDRESS OF INTERRUPT VECTOR 
$5 18 0357 1754 BGEQ 10% : IF GEQ UBA INTERR 
7E 50 7D 0359 1755 MOV RO, = (SP) : SAVE REGISTERS 
95 17 0 3¢ 1736 IMP on aks > DISPATCH INTERRUPT 
- 99900020 60 1758 UBAINTS=. “UBAINTBASE ; UBA_O INTERRUPT DISPATCH LEVEL 5 
D 36 1759 MOV. —s-_- R4,, = (SP) SAVE REGISTERS 
54 00000034 9F 7EFFFEOS F CB 0363 1760 BICL3 #*X7FFFFEO3, @#UBASL _BRRVR+4 R4 ; READ VECTOR REGISTER AND CLEAR BITS 
0000002A O36F 1761 UBAINTSRELS- =UBAINTBASE=5 : OFFSET TO ADD UBACSR VALUE 
52. 7D OO 36F 1766 MOV ~—s- R2, - (SP : SAVE REGISTERS 
55 D4" AFG 9 rg 176 MOVAB B“VECTABCR4I,R5 : GET ADDRESS OF INTERRUPT VECTOR 
45 1 37 1764 BGEQ 10% : IF GEQ UBA INTERRUPTS 
7E 50 7 0 79 1765 OVQ RO, -(SP) : SAVE REGISTERS 
95 1 As 1766 IMP on acR5)4 : DISPATCH INTERRUPT 
00000040 0380 1768 UBAINT6=. “UBAINTBASE ; UBA O INTERRUPT DISPATCH LEVEL 6 
ae 1769 Ra =(SP) SAV E REGISTERS 
54 00000038 9F 7FFFFEO3 BF CB 1770 BT eL3 #°X7F EEF EOS, , @#UBASL _BRRVR* R4 ; READ VECTOR REGISTER AND CLEAR BITS 
0000004A F 1771 UBAINTOREL=. “UBAINTBASE- : OFF SET TO ADD UBACSR VALUE 
52. 7D F 1278 MOV = R2, (SP) : SAVE REGISTERS 
55 D4" AF 44 3 g 177 MOVAB B“VECTABCR4I,R5 : GET ADDRESS OF INTERRUPT VECTOR 
a. 4 97 177% BGEQ 1 : IF GEQ UBA INTERRUPTS 
7E 7 99 1775 MOVQ = RO, (SP) : SAVE REGISTERS 
95 (1 9C 1276 JMP a(k5)+ : DISPATCH INTERRUPT 
9€ 177 -ALIGN QUAD 
0 900060 A 1278 UBAINT7=.-UBAINTBASE ; UBA_O INTERRUPT DISPATCH LEVEL 7 
—E 54 7D O3A0 177 MOVQ = R4, = (SP) VE REGISTERS 
54 0000003C 9F 7FFFFEO3 BF CB O3A3 17 : BICL3 #ATFEEF EOS, , @#UBASL _ennviet™ R4 ; READ VECTOR AND CLEAR BITS 
: 0 9000A AF 1 UBAINT7REL= .-UBAINTBASE ~ : OFFSE T_T ADD UBACSR VALUE 
55 DAtARAG OO 17 : MOVAB B°VECTABLR4],R5 : GET ADDRESS OF INTERRUPT VECTOR 
1 B? 1784 BGEQ : IF GEQ UBA INTERRUPTS 
meh See ire ish | ASAE Sauer 
0054 iF €5 O3BE 17 $ 10$:  BBCC #31,R4,20$ [CLEAR ADAPTER ERROR INTERRUPT FLAG (MSB) 


INIADP780 < ADAPTER INITIALIZATION FOR VAX $1 /380 4 AX/VMS Macro V04-00 : 5 
raat INISUBADP _ BULLD-ADPLAND. GRITALIZE POA 1fSEpe1oRG SorsOrTe FANCVAS Bacto VOTO kes | Page 25, 
55 DAT ARGS C2 1288 208: © MOVAB B*VECTABCRGI.RS :GET ADDRESS OF INTERRUPT VECTOR 
boonot eg ce 4 MOVL Wore i OET ADORE SS. OF ADAPTOR CONTROL BLOCK 
CE 1790 UBAINTADP=, LUBAINT pages 5 [OFFSET TO START ADED 
tac cE 1 ‘ERROR ROUTINE IN ADPERRIBO 
00000090 854 1792 UBAERRADRY -UBAINTBASE =< 
D4 1798 SDSABL LSB 3 
D4 1795 LALIGN LONG ; LONGWORD ALIGN VECTORS 
D6 1796 vECTAB: ; END OF INTERRUPT CODE, START OF VECTORS 
00000094 O34 1797 UBINTSZ=.-UBAINTBASE : §1ZE OF UBA INTERRUPT CODE 


AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
AL 
Al 
Al 
At 
AS 
Bs 
B! 
8! 
B) 


QQeroowwwweTI7o20o8 


H 
INIADP780 = ADAPTER INITIALIZATION FOR VAX #380 16-SEP-1984 46 VAX/VMS Macro V04 500 Pa ry I} 
v04-002 INISMBADP = BUILD ADP AND INITIALIZE MBA 11-SEP ets 90: 33:48 YeYSLOR. SRCJINIADP.MAR; 3 - (2 S) 
D4 1815 ~SBTTL MI MBADP = BUILD ADP AND INITIALIZE MBA IC 
D6 1 1 ~SBTTL iN DRADP = BUILD ADP AND INITIALIZE DR32 I) 
6 -SBTTL INISCIADP = BUILD ADP AND INITIALIZE C1 , 
D4 1 i§ : INISMBADP IS CALLED AFTER MAPPING THE REGISTERS FOR A MASSBUS ADAPTER. I) 
D4 1 ; ADAPTER CONTROL BLOCK IS ALLOCATED AND FILLED. A CRB AND IDB AR I) 
D4 1 3 ALSO ALLOCATED AND INITIALIZED. THE ADAPTER HARDWARE IS THEN INITIALIZED I) 
D4 3 BY CALLING MBASINITIAL. i 
D4 1824 : INISDRADP IS CALLED AFTER MAPPING THE cREGISTERS FOR THE DR32 I) 
D4 1825 ; ADAPTER. THE ADAPTER CONTROL BLOCK AND IDB ARE ALLOCATED I} 
D4 1 § ; AND INITI ALIZED, THE ADAPTER BARDUARE if THEN INITIALIZED BY I) 
Be ! 3 CALLING DRSINITIAL. H 
D4 1 § : INISMBADP AND INISDRADP SHARE COMMON CODE AFTER THE TABLE OF ADAPTER IC 
be 9 3 SPECIFIC CONSTANTS IS SELECTED AND STORED IN R8. it 
D4 1 3 + INPUT: IC 
D4 1 : R4 = nexus identification number of this adapter IC 
6 } 3 : Ril= offset from beginning of SCB to correct SCB page for this adapter if 
0 D4 1 : : OUTPUTS: IC 
D4 1 ; ALL REGISTERS PRESERVED i 
O3pe 1839 * ti 
00000000'GF 17 i ‘9 ALONPAGD : JMP G* INISALONONPAGED 4 
DA 4g .ENABL LSB a 
DA 44 INISDRADP: ; INITIALIZE DR32 DATA STRUCTURES a 
O7FF 8F BB O3DA 1 48 PUSHR #2McRO R1,R2,R3,R4,R5,RO,R7,RB-RI,RIO> ; SAVE REGISTERS ME 
58 OO11'CF DE O3DE 184 MOVAL TAB Re. GET 6R32 TABLE OF CONSTANTS me 
59 OOOO'CF 9€ rs 1850 MOVAB “DR RSI NER ; ADDRESS oF ‘Wy ITERRUPT SERVICE ROUTINE ral! 
5a =: 0000 CF 9 €8 1851 MOVAB UORSINT RO ; ADDRESS OF DEVICE INITIALIZATION me 
28.1 ED 3g BRB 10$ ; JOIN COMMON CODE " 
EF | 26 INISCIADP: : INITIALIZE C1 DATA STRUCTURES mt 
PUSHR grncRO R1,R2,R3,R4,R5,R6,R7-RB-RI-RIO> ; SAVE REGISTERS NC 
58 Ono eE Br FS i $1 MOVAL TAB,RS : GET €1 TABLE OF CONSTANT NC 
aR DobO'eE «OOF OER BCS MOVAB us “EISINE Ro R10 i MOR ss OF eee ete Nl 
A e a - : 
13° «11 402 eh BRB 10$ : JOIN COMMON CODE w 
4 4 3 INISMBADP: : INIT MBA DATA STRUCTURES w 
PUSHR = #*M<RO-R1,R2,R3,R4,R5,RO,R7,RB_RI,R10> Nt 
bob er E " 3 i 5 MOVAL W°MBATAB, RS : GET T MBA’ TABLE’ OF CONSTANTS NI 
39 000° CF 9E 04 1874 MOVAB W*MBASINT,RO ADDRESS OF INITERRUPT SERVICE ROUTINE Ni 
A 0000'CF E aig fe ia MOYAB UMBASINITIAL.R10 + ADDRESS OF DEVICE WNITLALIZA TION wu 
417 1877 ; . NI 
it ! if Allocate and initialize Channel Request Block. | 
F 417 1 ' MOVZWL #CRBSC_LENGTH,R1 ; SET SIZE OF CRB NI 
ealcoas Ss 6 41C 1 BSBB  ALONPAGD : ALLOCATE SPACE FOR CRB NI 


——— 


Initialize adapter interrupt vectors in System Control Block. 
MOVL Bone eG. S$CB,RO 


; GET ADDRESS OF SCB 


5 B ASHL ; Turn SCB page offset into byte offset. 
50 ADOL 3:n0 3 get to beginning of correct SCB page. 
4 EXTZV #0,#4,R4,R4 ; Use low 4 bits of nexus number. 
0100 co D MOVAL *x{00(ROSCR4],RO ; COMPUTE ADDR OF 1ST VECTOR 
1C A D 4A MOVL RO, ADPSL_AV COR (Re) 3 SAVE ADDR OF ADAPTER® S$ SCB VECTORS 
60 5 DE 04A5 MOVAL CRASL_INTD+ (R10),(RO) ; CONNECT VECTOR TO CRB CODE 
40 A : DE Q4A9 MOVAL CRBSL_INTD+1(R1 9 9510) | SAME FOR 
0080 C DE OQO4AE MOVAL CRBSL_INTD+1(R10), BB (RO; ALL FOUR 
00CO ¢ 5 DE 0484 MOVAL CRBSL_INTD+1(R10),192(RO); VECTORS 


Continue with ADP initialization. 
0$: MOVAL CRBSL_INTD+1(R10), - 3; SAVE SCB VECTOR CONTENTS IN ADP 


INIADP780 = ADAPTER INITIALIZATION FOR VAX 14/380 16-SEP-1984 :46 VAX/VMS Macro V04-00 P 7 I! 
vara INISCIADP = "BUILD -ADP-LAND GNITIALIZE Fo 1aeSEPotonG Sorsocts FANGYAS Maceo VOssOO a3 Page (27, $) 
BA 1 4 1 MOVW R1,CRBSW_SIZE(R2) SET CORRECT IZE qT 
AA 6 88 422 1 j MOVE  #DYNSC.CRB.CRBSS._TYPE(R2S : SET CORREC tee LL 
6 DE 0426 1884 MOVAL CRBSL_GOFL(R CRBS. wae (fe) ; INITIALIZE WAIT QUEUE HEADER 1) 
4 Ac 6 be 409 1885 MOVAL CRBSL-WOFL(Re),CRBSL_WOBL (Re) FLINK AND BLINK 1) 
24 A 42D 1 : MOVAB CRBSL INTD(R )°RO ; SET ADDRESS OF _INTD AREAD Ut 
80 9F165¢8B F 00 0431 1 MOVL  #*X9FT63CBB, (RO) + : “PUSHR *M<R2,R3,R4,R5>,JSB ae” UE 
9 00 0438 1 : MOVL  R9,(RO)4 + ADDR OF XXXSINT ROUTINE UE 
0 04 0438 1 CLRL (RO) + : CLEAR OUT UNNEEDED AREA UE 
0 SA 09 430 1890 MOVL  R10,(RO) : ADDR OF XXXSINITIAL ROUTINE Ut 
A 52 0D 44 31 MOVL  _R2,R10 + SAVE CRB ADDRESS r 
44 $8 ; Allocate and initialize Interrupt Dispatch Block. a 
1 68 9A 0443 1895 ° MOVZBL ADPTAB_IDBUNITS(R8),R1 ; GET # OF IDB UNITS Ut 
51 00000088 9F41 DE 446 1 36 MOVAL @M#IDB$C_LENGTHLR1],R1  : GET TOTAL SIZE OF 10B Ut 
1 age 189 ASBB A ONPAGB 3 ALLOCATE SPACE FOR CRB Ut 
08 A 1 80 450 1 38 MOVW R1, 1DB$W_SIZE(R2) ; SET STRUCTURE SIZE UE 
OA A 09 «9 $28 | 44 MOVB OTe OR a5) ; AND TYPE CODE a 
9B rk 1901 MOVZBW ADPTAB_IDBUNITS(R8),- ; SET COUNT OF UNITS UE 
OC A 45A 190¢ 1DB$W_ON TS (Re) Ut 
62 OOE4'CF44 DO 045¢ 19 MOVL W*SBICONFCR4], - ; SET CSR ADDRESS T vi 
462 1904 1968t. CSR(R2) i START OF ADAPTER OnEG SPACE ve 
2C AA 52 00 0462 1905 MOVL SET ADDRESS OF IDB INTO CRB ve 
46 1906 chsh INTD+VECSL_ 10B(R105 ve 
59 52 00 46 1907 MOVL R2,R : SAVE ADDRESS OF IDB 
rt} 139) 3; Allocate and initialize Adapter Control Block (ADP). 
51 1 A8 35 469 1911 MOVZWL ADPTAB _prsmgeed ; GET SIZE OF ADAPTER 
F64 =. 30 46D 191¢ BSBW AL ONP ; ALLOCATE SPACE FOR CRB 
08 A251 8 470 191 MOVW OR ADPSU Ss E(R2) SET side OF STRUCTURE 
OA Ae 01 474 1914 MOVB avy CADE Tees TYPE(R R25: AND TYPE COD 
& $9 DO 0478 1915 MOVL R(R9) ADPSL_CSR Rina) SET ADDRESS OF CONF 1GURAT ION REGISTER 
OC A 4 478 1916 OVW WA ast ree ink RCRD) ; SET TR/SLOT-16 NUMBER 0 PTER 
03 Ag 47F 191 MOVZBW ADPTAB ATYEE CRB) - : SET THE ADAPTER TYPE 
OE 4 2 1918 ADP SU ADPTYBE(R } 
484 191 MOVL ABPS$L_CRB(R2) POINT ADP TO CRB 
488 1920 CMPW Apes  ADPTYPECR ) WATS_ ci; ? 
4 19 1 BEQL 208 ; YES, DO NOT CONNECT UP VECTORS 
tBB 1958 
488 1924 
488 1925 
48F 19 $ 
493 19 
496 19 8 
498 19 
1930 
Hi} 
1938 
1934 
5 
1989 
1938 
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ITl 
Bul 
193 
; 4BF 1346 PUSHR #*M<R2,R3> : SAVE SOME REGISTERS 
5 DO 04C1 194 R2,R5 + COPY ADP ADDRESS 
62 DO 04C4 1 46 MOVL  ADPS$L_CSR(R2),R2 : VIRTUAL ADDRESS OF ADAPTER 
00000000' GF 16 4C7 194 $B G“MMGSSVAPTECHK + ADDRESS OF SPTE THAT MAPS ADAPTER 
18 A 3 pO O4€D 1944 MOVL — (R3) ,ADP$L_MBASPTE(RS) SAVE CONTENTS OF SPTE 
BA 0401 1945 POPR #*M<R2_R STORE REGISTERS 
38 AA D0 0402 1 46 MOVL  R2,CRB$L_INTD DevECSL_ app ch10) - SET CRB POINTER TO ADP 
14 a9 p 407 194 MOVL  R2,1DBSL=ADP(R9) ; AND Into IDB 
FB22' 408 194 BSBW ADPLINK = : LINK ADP TO END OF CHAIN 
; Initialize a apter hardware. 
ADE Initialize ad hard 
si 59 v0 ADF 19 ‘ MOVL ; ADDRESS OF IDB 
4 65 DO 0461 19 MOVL nett CSR(RS ADDRESS OF CONF IGURATION REGISTER 0 
0 BA 16 0464 1954 JSB acres “INtDsvEcs $L IN rand at) INIT ADA 
ov? BA 4E7 1955 POPR ht *R1,R2, RS »RG,R ako Rios RESTORE ALL REGISTERS 
> Ocee 1989 08 "neTUAn 
Bee 1958 .DSABL LSB 
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~SBTTL INISKDZ11 


INPUTS: 
Re - VA of next free system page 
R5 = VA of systen age table entry to be used to map VA in R2 
R4 = nexus identification number of this adapter 

OUTPUTS: 


NISKD211: 
RSB ; Return to caller. 
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INIADP780 APTER INITIALIZATION FOR VAX 11/380 16-SEP-1984 74 AX/VMS Macro V04-00 Pa 
you-003 Int CONSOLE, init data structures for co 11-SEP-1984 t 98: 39; 8 YOYSLOA. SREDINIADPLMAR: 3 ” 2) 


rh} re -SBTTL INISCONSOLE, init data structures for console 
4eD $ FUNCTIONAL DESCRIPTION: 
4ED 5 : This cout ine is executed only once, during system initialization. 
rh i § : It initializes the CRB and IDB for boot/console device. 
4ED 8 : This routine is called from INIT. 
AED 40 : INPUTS: 
4ED 4¢ : R3 --> DISK CCLASS] DRIVER DDB 
4ED 2043 : R4 --> DISK [CLASS] DRIVER DPT 
4ED 2044 : RS ==> DISK CCLASS] DRIVER UCB 
4ED 2045 : R6 ==> RPB 
4ED 46 ; R7 ==> ADP FOR EITHER A REAL DISK OR A PORT 
4ED 2047 : R9 ==> PORT DRIVER DPT (IF PRESENT) 
4ED 48 ; R10--> PORT DIRVER UCB (IF PRESENT) 
Q4ED 049 ; 
SS 830 
4ED O5¢ INISCONSOLE: : 
4eD 093 .ENABL LSB 
66 AB «091S—«OO4ED «= 2056 CMPB RPBSB DEVTYP(R6) - ; BOOTING FROM CONSOLE BLOCK 
40 8F O4FO 057 TDSR C : STORAGE DEVICE? 
12 12 O4F2 2058 BNEQ +4 CR : NO 
41534303 BF DO O4F4 059 MOVL BL ERB ; YES, SET DEVICE NAME 
14 a3 AFA 969 DOBS$T SNARE CRS) + COUNTED STRING 
58 00000000'9F bE ar 064 MOVAL a@#OPASCRB,RB : SET ADDRESS OF CRB 
0068 31 30 065 BRW 100$ 
Bs Sie 
S808 88 
0506 O77 NOW BUILD THE AUXILIARY DATA BLOCKS (CRB,IDB) 
0306 075 BLD_CRB: 
58 10 A7 00 0506 0 MOVL ADPS$L_CRB(R7),.R8 GET ADDRESS OF CRB IF IT EXISTS 
OE AZ 01—sz 308 081 CMPW = #AT$_OBA, ADPS$W TADPTYPE (RA); IS THIS A UNIBUS ADAPTER? 
3 13 «05 ; BEQL LL-CRB » ALLOCAT 
0058 «31 3] ; BRW 100$ : NO, CRB/IDB ALREADY ALLOCATED 
31 5 FILL_CRB: 
00000000'9F 16 051 6 JSB avINI$ $ALLOC GO ALLOCATE Ane SETUP CRB 
24 A2 9F163FBB BF D0 051 MOVL #*X9F163FBB; CRBS INTD(RB) j SET PUSHR #°M< -R5> 
521 8 a#0_INTO INTERRUPT DESPATCH 
38 A 7 09 521 MOVL 7, CRBSL_INTD+VECSL ave cha)” T POINT ER TOA 
5 2 p 525 0 MOVL R2,R8 V PO 
6 58 BF 3¢ 0528 2091 MOVZWL #<{DBSC LENGTH#<B*4>>, R1: SIZE TO ALLOCATE FOR IDB 
0990 O'OF = 5 36 JSB ar INISACONON ; AL LOCA TE IDB 
0 A 1 8 5 5 9 MOVW = R'1, 1DB$W SIZE OF 1DB 
AA 9 5 94 MOVB sD YNSC is natty TYPE(R25; AND ST RUCTURE TYPE CODE 
2c A 2 00 : 8 % MOVL  R2,CRBSL_INTD+VECSL_IDB( BiB) Met IDB INTO CRB 
b 1 
62 58 A6 DO F 2114 108 MOVL  RPBSL_CSRVIR(R6), - ; SAVE BOOT DEVICE CSR ADDRESS 
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onset: 
ata structures for co 11-SEP- 
joes cs ate 
CMPB 
gress. BEVTYPCRG) 
BNEQ 
MOVL RPBSL_CSRVIR(R6) 
a#BO0$GB_SYSTEMI 
OVL bbSueRO ADP(R2) 
Boy EL RP $W_ROOBVEC (R6 
MOVZBL deals H 
MOVZWL SRB OOTUECTOR GS R 
OVAB @ADPS$L MA oT 
MOVAB CRBSL_INTD+2(R8) 
$: 


RSB 
«DISABLE LSB 
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IN glial DISPATCH BLO 

LOW ORDER erts vee ORIGINAL RO TELLS 
BOOT DEVICE T 

u an BOOTING. FROM A UDA BRANCH 


copy VIRTUAL ADDRESS OF UDA PORT CSR 
TO LOW ORDER LONGWORD OF SYSTEMID 


POINT IDB TO ADP 


GET USER SPE 
ANCH 


IED VEC 
IF 4 OR SPEC 


IF 

TOR I 
VICE TYPE C 
NTERRUP 
RESS OF VE 
NTERRUPT VECTOR 


RETURN 
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~SBTTL EXESINI_TIMWAIT = COMPUTE CORRECT TIMEWAIT LOOP VALUES 
FUNCTIONAL DESCRIPTION: 
XESINI_TIMWAIT initializes EXESGL_TENUSEC and EXESGL_UBDELAY, getls used 
n the ime-wait macros. The first data cell, EXESGL_-TENUSEC, is the number 
of times the follow ng loop will be executed in ten u=seconds. This is 
done once here to calibrate the loop instead of reedion the processor clock. 
The resulting number is used in the system macros TIMEWAIT and TIMEDWAIT. 
The first gteo is to initialize EXESGL_UBDELAY. If the bit test instruction 
in the TiMEWAIT macro is executed too rapidly in a loop, it can saturate the 
Unibus. EXESGL_UBDELAY is used to introduce a 3 microsecond delay loop into 
the TIMEWAIT bit test Loop. 
This routine is called only once, from INIT. 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 


{ soeney seer processor clock. 
Interval timers. 


OUTPUT PARAMETERS: 
RO - Destroyed. 
IMPLICIT OUTPUTS: 


EXESGL_TENUSEC - set to appropriate value to make TIMEWAIT and TIMEDWAIT 
macros loop for 10 micro-seconds. 


EXESGL_UBDELAY = set to appropriate value to make TIMEWAIT and TIMEDWAIT 
pecres loop for 3 micro-seconds in the unibus delay 
oop. 
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EXESINI_TIMWAIT:: ; Initialize time-wait data cells 
-ENABLE LSB 


19 00 ODA MTPR #0,#PR780$_NICR : Initialize next interval count register. 


7E 00004E20 8F 00 
18 «11 


MOVL #20000 ; # of times to execute timed loop. 
DA *x11 


-(SP) 
MTPR = #*X11,#PRS_ICCS > Start clock, no interrupts. 
; # * « start of loop to time * * * 
10s: SOBGTR (SP),10$ 3 Delay loop. 
3; * * t end of loop to time * * * 


MFPR #PR780$_ICR,RO ; Read total time to execute loop. 
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cle 


1 
Luyapezeo - yet: INITIALIZATION FOR VAX B1S80 197360- 1388 90:33:46 eae Macro Vv04-00 Page 33 
v04-002 EXESINI_TIMWAIT = COMPUTE CORRECT TIMEWA 11-SEP-1984 16:29:1 SYSLOA.SRCJINIADP.MAR; 3 (15) 
1 
} 
18 98 DA § MTPR op -arns ices ; Shut off clock. 
00000000'GF O000EA60 8F C7 DIVL3) RO,#6000 ,G*EXESGL_UBDELAY; Calculate number of times through 
Q0000000'GF 06 34 3 INCL G*EXESGL_UBDELAY 3 loop to delay 3 microseconds. 
19 00 ODA 337 ; MTPR #0,#PR780$_NICR ; Initialize next interval count register. 
9A 
R338 
50 00004E20 8F DO O59A 4g MOVL #20000,R0 ; Number of times to execute test loop 
73 00000000" GF DO O5A1 204 MOVL Gre XESGL UBDELAY,(SP) ; Get delay loop iteration count. 
1 11. ~DA “ne $e MTPR #°X11,#PRS_ICCS ; Start clock, no interrupts 
5AB 50 ; x*** Start of loop to time 
000005B9'EF 8000 BF 8B 5AB 51 20S: BITW #°XB000,408 ; Random BITx instruction to time 
os < } 5B4 26 BNEQ 40$ 3; Random conditional branch instruction 
FD 6—E «OFF 8286 53 30$ SOBGTR (SP),30$ ; Delay 3 microseconds. 
EF 50 F5 0589 2254 40$:  SOBGTR RO,208 : Loop 
beer 2? 3 eee End of loop to time 
50 1A 0B geet 33 MFPR #PR780$_ICR,RO ; Read total time to execute loop. 
sae 
18 00 DA OSBF re MTPR #0, #PRS_ICCS ; Shut clock off 
8E 05 05C2 7 TSTL (SP)+ ; Pop delay loop index off stack. 
00000000'GF 00030040 8F 50 (C7 BaCe 74 DIVL3 RO,#200000,G*EXESGL_TENUSEC ; Calculate number of times to 
00000000'GF 06 300 $76 INCL  G*EXESGL_TENUSEC ; execute the Loop to kill 10 u-secs. 
506 89 
05 ie 290 RSB ; Return 
05D 291 -DISABLE LSB 
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WOa-002 EXE INIT TODR = SET SYSTEM TIME TO COR 11-SEP=1 1382 90: 33: 8 YOYSLOA. SRCJINIADP.MAR; 3 9° 16) vo 
p 4 pe .SBTTL EXESINIT_TODR = SET SYSTEM TIME TO CORRECT VALUE AT STARTUP 
p : FUNCTIONAL DESCRIPTION: 
D7 : EXESINIT_ TODR SOLICITS THE CORRECT TIME FROM THE OPERATOR IF NECESSARY, 
D7 4: CONVER 1S"T HE ascii RESPONSE TO BINARY FORMAT AND CALLS AN INTERNAL 
D7 5: ENTRY POINT OF THE SSETIME M SERVICE TO SET THE NEW SYSTEM TIME 
De 5 ; IN MEMORY WITHOUT MODIFYING CONTENTS OF THE SYSTEM DISK. 
apf 8 ; IF THE TIME WOULD NORMALLY LICITED FROM AN OPERATOR, BECAUSE 
D7 : HE HARDWARE TIME OF YEAR C IS ZERO, THEN THE SYSGEN PARAMETER 
D7 19 : “TPWAIT' IS CHECKED. IF IT ERO, THEN IT IS ASSUMED THAT NO 
D7 2311: OPERATOR IS PRESENT AND THE EM {S$ BOOTED USING THE LAST TIME 
507 1 ; RECORDED IN THE SYSTEM IMAG F THE PARAMETER IS NON ZERO THEN 
Sp? 2313: THAT TIME IS USED AS THE MA TIME 19 WAIT BEFOR ASSUMING THAT 
5p? 2314: THERE IS NO OPERATOR AND BO ANY WAY. IF THE PARAMETER IS 
20¢ 13 ; NEGATIVE, THE SYSTEM WILL WAIT FOREVER. 
0507 2 ; THIS ROUTINE IS CALLED ONLY ONCE, FROM SYSINIT OR STASYSGEN. 
0507 19 : INPUT PARAMETERS: 
0507 1: NONE 
0807 + IMPLICIT INPUTS: 
0307 5: TIME-OF=DAY PROCESSOR CLOCK. 
0507 ? : OUTPUT PARAMETERS: 
0307 ; : RO,R1 = DESTROYED 
0507 1 : IMPLICIT OUTPUTS: 
0507 : : EXESGQ_SYSTIME - SET TO CURRENT TIME IN 100 NANOSECOND UNITS SINCE 
0507 4: 17-NOV-1858 00:00:00. 
507 5: 
507 § 3e- 
apf 
207 33 | > Stack storage offsets: 
00000000 05D7 2341 TTCHAN = *x00 ; CHANNEL FOR TERMINAL (LONGWORD) 
0 0 4 207 43 TTNAME = “X04 : STRING DESCRIPTOR FOR OPERATOR'S TERM 
C 0507 2343 TMPDESC = *x0C : TEMPORY STRING DESCRIPTOR (QUADWORD) 
0000014 207 44 INTIME = *X14 : INPUT TIME VALUE (QUADWORD) 
0 0 g1¢ D7 2345 LINBUF = “X1C : INPUT LINE BUFFER (5 LONGWORDS) 
000014 0507 46 LINBUFSIZ = “X14 : (LENGTH OF LINE BUFFER IN BYTES) 
ot Be 
H rt + PURE DATA 
D7 TERM_NAMADR: 
30 415 off gb? ine wangaselt \OPAD\ a : DEVICE NAME FOR OPERATOR'S TERMINAL 
74 61 64 20 64 69 6¢ 61 61 zs 6 69 09° 308 az 18 Tl RERRe VASCIC Vinvetta. date/time\ : 
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SMe MERRIE OR:HRHt US. Sette, PO 


5 
SET SYSTEM SYSLOA.S SINI ADP .MAR; 3 da 


é TIMEPROMPT : 
2 TE NPROMPT 
ASCII <13><10>/PLEASE ENTER DATE AND TIME (DD-MMM-YYYY HH:MM) / 


NPROMPT=.-TIMEPROMPT=1 


EXESINIT_TODR:: ; SET CORRECT TIME 


-ENABLE LSB 
PUSHR = #*M<R2,R3,R4,R5,R6,RB,RI,RI0> ; a tsomie 
DDRESS OF SCRATCH STORAGE 


SUL age 12,8P ° : i SCRATCH 
MOVZBL aTeRM NAMSIZ TINAME (RG) SET size Spas Inge. | TERM NAME AND 


MOVAB. W*TERM_NAMADR, TTNAM Jaiy ; CA AME DESC 
BBS S*HEXESY. SETTIME, On EXESGL  iaGs. TREADTIAE BR TO SOLICIT TIME 


MFPR #PR780$_TODR,RO ; GET TIME OF DAY CLOCK VALUE 


SUBL3 RO,G*EXESGL_TODR,R9 ; GET TOD DELTA TIME (10 MS UNITS) 


BLEQU ; BRANCH IF TIME IS LATER 
CMPL RO, #24%60*60*100 : anaes FOR SETBACK OF ONE DAY 
BGEQU READTIME ; MORE, MUST SOLICIT TIME 
5$: CLRQ seine nee ; NULL L_ARGUMENT FOR EXESSETIME_INT 
00$ ; RETURN TO CALLER 


READTIME: ; SOLICIT TIME 
R9 ; CLEAR A FLAG 
CVTWL 4 G*SGNSGW_TPWAIT,R8 ; PICK_UP TIMEOUT WAIT INTERVAL 
R 8$ ; POSITIVE, WAIT THAT PERIOD ONCE 
BLSS 7$ ; NEGATIVE IS WAIT FOREVER 


ADDLS = #1,G*EXESGL_TODR,RO ; ZERO, SET TIME-OF-DAY CLOCK TO 
MTPR RO,#PR780$_TODR 3 KNOWN VALUE + 10 MSEC AND FINISH UP 
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BRB 5$ 3 
7$: MOVL  #20,R8 ; STARTING WAIT 
INCL L NEGAT - WAIT FOREVER 
8$: ASSIGN_S TTNAME (R6), TTCHANCR ) Hm ASSIGN 6 INPUT DEVICE 
BLBC ROR - FALL BACK TO STORED TIME 
10$:  MOVAB u* TIREPROMPT, R2 : GET ADDRESS OF PROMPT STRING 
povzet R2)+,R L 
$al0w S #0,W* ATTCHA 
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: Now release the memory to non-paged pool. 


MOVAB W*SYSLSBEGIN,R pyiae to start of module 


0 ; 
MOVZWL #<STAY_HEADER-SYSLSBEGIN>.R1 ; Length to vaporize 
BRwW 50$ ; Br to code that is not released. 
-PSECT SSSINIT__END, PAGE ; “PAGES SINCE 16-BYTE ALIGN IS NOT 
STAY_HEADER: 
- LONG 


6 
-WORD <SYSLSEND-STAY_HEADER> 


[=] 
So 
So 
So 


00000000 0000000 
0000' 


BYT BINES LOROCODE 
BYTE 
00000000°9F 16 50$: JSB OSE NESE ANONPEDSIE ; Just the smile on the Chesire cat 
52 BE mova (SP)+,R ; Restore 
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; Return, 
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INIADP780 = ADAPTER INITIALIZATION FOR VAX 1)980 16-SEP-1984 00:39:4 AX/VMS Macro v04-00 P 7 1 
y04-002 EXE INET TODR - SET SYSTEM TIME TO COR 19=SE=198e 90:39:48 LOYSLOA. SRETINYADP MAR: 3 ni dy vi 
7 . r § DEAL_INIT_CODE: ; DEALLOCATE THE INITIALIZATION CODE 
; C 24 : It is the duty of the last-executed, loadable initialization 
73C 2489 ; routine to make itself and all other such routines disappear, i.e., 
73C 2490 ; release the space they ooeuby to non-paged pool. Each routine'’s vector 
f : 3 ; must be disconnected, e.g., be made to point to the symbol, EXESLOAD_ERROR. 
73C 249 : NOTE: This means that new initialization routines should be added 
73C tge 3 to this module in a particular order, not necessarily at the 
4 : 436 ; end of the module! 
73C 2497 © .ENABLE LSB 
ma. FF 4 : a3 MOVQ Ro = (SP) ; Save some registers 
73F 0; 
73F 26 ; First find the vectors that point to these initialization routines 
4 : 208 : and reset them to point to EXESLOAD_ERROR. 
50 OQOO0'CF 9E O73F 504 ° MOVA W*SYSLSBEGIN,RO ; Compute bounds of releasable piece: 
51 50 00000000'BF Cl Ores Ht ADDL3  #<STAY HEADER=SYSL SBEGINS RO. 1s starting end ending eddresses. 
26 § OO0000'GF  9€ res 5 § MOVAB G“EXESAL_LOAVEC,R ; Get starting address of vectors. 
5 000000'GF  9€ 3 50 MOVAB GPE XESLORD ERROR. R3 : Get end of vectors. 
9F17 BF 62 Bi O75A 2508 108: CMPW (R2) ,A*°X9FT : Is this JMP af ? 
| 13° O75F 2509 BEQL 308 ; Br if yes, skip past it. 
80 BF O3 A 91 0761 2510 CMPB (R2) ,#*x80 ; Is this a system space address 
7° We 196 511 BNEQ 40$ ; Br if no, assume it's a HALT instr. 
50 62 »D1 076 216 CMPL (R2),RO : Is address before the releasable 
0 1F 0768 251 BLSSU  20$ ; piece of memory? 6r on yes. 
51 6 D1 rep 514 CMPL (R2),R1 ; Is address after the releasable 
0 1A 07 515 BGTRU 20% ; piece of memory? 6r on yes. 
62 00000000'GF PF 77 318 MOVAB a ean cntatect te 3; Reset this vector. 
52 0 C 77 51 ene: ADDL #2,R ; Point past this vector. 
5 D6 O077C 318 0$: INCL R ; Come here to point past JMP af. 
: D6 077 519 40$: INCL R ; Come here to point past HALT. 
53 D1 4 520 CMPL R2,R3 ; Past the end of the vectors? 
a 4 2 1 BLSSu 108 ; Keep searching vectors. 
Fae 5858 
7 524 
TBA 5896 
ee 
oe 
4 
4 
ty 
42 
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-DISABLE LSB 
END 
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INLADP780 = ADAPTER INITIALIZATION FOR VAX $1) 980 19-36-1388 90:33:46 ee Macro V04-00 Page 79 
Symbol table 11-SEP-1984 :29:1 SYSLOA.SRCJINIADP.MAR; 3 (17) 
SSSVMSDEF INED cs 1 CONF REGL He R 8 
$$Ti = 4 CPU_ADPSIZE 9R 
ADAPTERS R 02 CPU_TYPE 2 1 
ADPS$B_TYPE 2 A CR z D 
ADPSC_CIADPLEN = CRBSB_TYPE = A 
ADP$C_DRADPLEN 2 CRBSC_LENGTH = 48 
ADPS$C_MBAADPLEN = CRBSL_INTD 2 4 
ADP$C_UBAADPLEN z CRBSL_WOBL = 4 
ADPSL_AVECTOR z= 1 CRBSL_WOFL = . 
CRB = 1 CRBSW SIZE = 3 0 
ABER -bRSrL = Setbpahe eee LENE ies 
= = 
ADPSL_LINK : 04 DDBST NAME = 0900016 
ADP$L_MBASCB = 8 9 14 DEAL_INIT CODE O008 3C R 09 
ADPS$L_MBASPTE 2 18 DIRECT _VEC_NODE_CNT 00009 R 08 
ADPSL_MRACTMDRS = 0 5 DRSINITIAL aeeeeree =X 09 
ADPSL_MROFL 2 0 DRSINT aeeeerer§ § X 09 
ADPSL_UBASC = 00000044 DRTAB 0000011 R 08 
ADPSL_UBASPTE = B38 54 DYNSC_ADP = 4549 
ADPS$L_VECTOR = 00000010 DYNSC_CONF = 00000007 
ADP$W_ADPTYPE = 4444 44 YNSC_CRB = 00000005 
P$W_DPBITMA = 000000 DYNSC_IDB = 444484 
ADPSW_MRF FENCE = 448 C DYNSC_INIT = 00000063 
ADPSW_MRFREGARY s B38 1 ; DYNSC -LOADCODE = OO 80s 
ADPSW_MRNF ENCE = 000 306 NEXUS 0000115 R 09 
ADP$W_MRNREGARY = 00000064 ERROR_HALT 0000199 R 09 
ADPS$W_SIZE 2 444 43 ERROR-HALT_1 0000019E R 09 
ADPSW_TR = 4th d4 EXESAC_LOAVEC aeeeeeee = X 09 
ADPSW"UMR_DIS = 00000256 EXESDEANONPGDS1Z eeneeeee =X OA 
ADPLIAK eeeeeree =X 09 EXESGL_CONFREG eeeeeeee =X 09 
ADPTAB_ADPLEN 900000 1 EXESGL_CONFREGL aeeeeeee =X 09 
ADPTAB_ATYPE 00000003 EXESGL_FLAGS aeeeeene = =X 09 
ADPTAB_ IDBUNITS Bonn 0 EXESGL_NUMNEXUS ateeeeee =X = 09 
ALONPAGD 0000304 R 09 EXESGL_RPB aeeeeene =X 09 
AT$_CI = 10080008 EXESGL_SCB eeeeeeeer XX 09 
AT$_OR = 00 i EXESGL_ TENUSEC eeneeeee =X 09 
ATS_MBA = 000000 EXESGL_TODR eeeeeeee = X 09 
AT$_UBA = 00 3 EXESGL_UBDELAY eeneeeee =X 09 
SBOE cone ssauous "= EBs Fepcout a 
= 
BI-CPU- = 09 09 EXESINIT_TOOR 9000062) RG 9 
BI-CSR_LEN z EXESINI_TIMWAIT QO00056F RG 9 
BI-LIKE = 90008 EXESLOAD_ERROR eeeteeee = =X = 09 
BLB_CRB 000506 R 9 EXESMCHK PRICT eeerenee 9 
BOOSGB_SYSTEMID teeereee 9 EXESOUTZSTRING eeeeenee = § 9 
BOOSGL _SPTFREH aeeeeeee = § x 9 EXESSETIME INT aeaeenee = §6X 9 
BOOSGL_SPTFREL geereere 9 EXESTEST CSR eeaneeee = §6X 9 
VECTOR 00 R 08 EXESUBAERR_INT Pt ae | 9 
BTD$K_CONSOLE = 4 EXESV_SETTIME 55554-4400 9 
BUS CODE OF FSET > PEFFFFC A eRe PE § $e R 3 
= 
BUS-CSR_CEN 00000004 R 8 GET" TYPE AO R 9 
CISTNITTAL eeeteree 6X 9 1DB$B_TYPE 2 A 
CISINT eeneeeer§ X 09 IDB$C_LENGTH = 8 
Ebi 10sPac ttt an rr = $eettbe 
CONF REG AG R 8 1DBSW"SIZE = $8 
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INILADP780 = ADAPTER INITIALIZATION FOR VAX 411980 16-SEP-1984 00:39:4 AX/VMS Macro V04-00 Page 39 
Symbol table 92866-1382 93:30:18 ESYSLOA. SREDINYADP.MAR; 3 ’ 3, 
10B$W_UNITS = 0000000C NDTS_MPM 2 4 
INISACLOC CRB eeeeeeee =X 2 NOTS_MPM = 4 
INI SALONONPAGED eeeeeeee =X NDT$_MPM s 4 
INISCIADP 3EF R 9 NDTS_MPM s 4 
INISCONSOLE ED RG 9 NDT$_SCORMEM = 
INISDRADP AR 9 NDT$_UB = 
INISIOMAP 0 RG 9 NDT$_ = 
INI$KDZ211 ha a 9 NDT$_ B¢ = A 
INI SMBADP 404 R 9 NDT$-UB = 8 
INI SMPMADP aentenee =X 8 NEXUSDESC R 8 
INI SUBADP 1¢3 R NOSPT a 8 
INI SUBSPACE 1A7 R 9 NPROMPT 2 
INIT ROUTINES 00 R 6 NUMUBAVEC = 
INTIME = 00000014 NUM_PAGES 3 OR 4 
10$M_CVTLOW eeeeneen §=6¥ 9 NXT_NEXUS 6B R 9 
1O$M_PURGE teeeeeee =X 09 OPASCRB aeeneeee =X 09 
1O$SM- TIMED eeeeeere =X 09 PA = 90 000 
10$_READPROMPT eeneeeee =X 09 PRS$_ICCS = 1 
10$_WRITEVBLK eeenenee =X 8609 43 et ad = 000 8 
10780$AL_1OBASE = 2000000 PRS_SID_TYP7 = i 0 
10780$AL_ = 0000 4 PRS_SID_TYP78 5 4444 
10780$AL _PERNEX = By 0 PR$_SID_TYP790 = 00 4 
10780$AL _UBOSP = 20100000 45 TT LS = BS $6 
LF = 0000000A PRS_SID_TYP8SS = 000 
LINBUF = SRDS PR$_SID-TYPUV1 = 8 7 
LINBUFS1Z = 00000014 PRS TBIS = 0000003A 
MAP_NEXUS 000 a R 09 PR7B0$_!CR = QOOQOO0IA 
MAP PAGES 000017 09 adh TES. = 00000019 
MAXNE XUS = 00000040 PR780$_TODR = 8 0001 
MBASINITIAL eeeeeeee =X PTESC_Rw = 1000000 
MBASINT eeeeeere =X 09 PTESM-VALID = 8000 9 
MBATAB 9000000 R 08 READTIME 000 R 09 
MCHKSM_LOG = 00000001 RPBS$B_DEVTYP = $ 3 $6 
MCHKSM_NEXM = 00000004 RPBSL_ADPPHY = 
MMGS$GL "SBI CONF eeeeeene =X 08 RPBSL_ADPVIR = 0000006 
MMGSGL~ SPTBASE eeeeeeee =X 09 RPBS$L_BOOTR1 = $8 é 
MMGSSVAPTE CHK eereeeee =X 09 RPSS$L_CSRPHY = 4 
NDT$_BUA = 508 4 RPBSL_CSRVIR = 8 58 

T$_Cl = RPBSW-ROUBVEC = 1E 

T$_0R32 = 000 SBI CONF Fe R 08 
NDT$_KDZ11 = SBI_BUS_CODE = 0 

T$_MB = SBI-CPU = $ 1 
NDT$_MEM1664N1 = SBI_CSR_LEN = 00001 
NDTS_MEM16! = 1 SBI-LIKE = 00000001 
NOTS_MERIONI = 1 SGNSGW_TPWAIT aeeeeeee =X 09 
NOTS_MEM256E IL = 7 STAY HEA SHS 44 R A 
NDT$_MEM256E IU = 7 SW 80s 0 000 R 5 
NOTS_MEM2561 z 74 SYSSASSIGN tteeeree GX 
NDT$_MEM reqte = 7 SYSSBINTIM aeeeeeee GX 09 
NOTS_MEMCSONIU = 7 SYS$DASSGN aeeeeere GX 09 
NDTS_MEMG1 s SYS$Q10W eeeeneee GX 9 
NOTS$_MEM4NI = 8 SYSLSBEGIN eeeeetee =X 9 
NOTS_MEM64EIL = SYSLSEND aeeeeere =X A 
NDT$_MEM64E IU = TERM_NAMADR 507 R 9 
NDTS-RERGGNIL : 5 TESTONEXUS- ; On 9 

= 

NDTS"MEMO4NIU = 0U A TIMEPROMPT ED R 89 
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Symbol table 
TIMERR BR 09 
TMPDESC = 
Heat 
= 
UBASINITIAL eeeeeeee 86 98 
UBASL BRRVR 09000080 tg 
= 
A R = 4 
UBASUNRE X INT eereeeee =X 8 09 
UBAERRADR = 8 
UBAINTS = 
UBAINT4REL = A 
UBAINT = 0 
UBAINTSREL = A 
UBAINT6 = 40 
USAINTSREL = 3 004A 
UBAINT = 0060 
UBAINT7REL = 3 0 oA 
UBAINTADP = 3 8 g 
UBAINTBASE 000340 R 09 
UBINTSZ = 44444 $, 
VASM_SYSTEM = 00000 
vVECSC_ADP = 4544 
VECSL_IDB = 00000008 
VECSL_INITIAL = 444 444 
VECTAB 000003D4 R 09 
dw a eco ee waen ee aane + 
! ;_Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
Ss 00000000 ( 0.) 00 ¢ OO.) NOPIC USR 
83 000 ( 4.) 1 ¢ 1.) NOPIC  USR 
SSSINITSDATAO 0 444 S & Fee ¢ ( §°} NOPIC  USR 
SSINITSDATA1 00000000 ¢ os ( -) NOPIC USR 
SSSINITSDATA 0 A ( 58.) 4 ( 4.) NOPIC USR 
SSSINITSDATA 00 0 ¢ ) 5 ( 5.) NOPIC USR 
SSSINITSDATAS ; 4 ( 116.2 $ ( g-} NOPIC USR 
SSSINITSDATAS 90 ( y+ ( -) NOPIC  USR 
SSSINITSDATA 0 . is 8 -) 08 ¢ 8°} NOPIC  USR 
SSSINITSCODE 3 Be & 3° 9 ¢ -) NOPIC USR 
SSSINIT__END 00001 ( 22.) OA ( 10.) NOPIC  USR 
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NOSHR NO 
NOSHR 


A.SRC 


o V04-00 
JINIADP.MAR; 3 
NORD NOWRT NOVEC 
RD WRT NOVEC 
RD WRT NOVEC 
RD WRT NOVEC 
RD WRT NOVEC 
RD WRT NOVEC 
RD WRT NOVEC 
RD WRT NOVEC 
RD WRT NOVEC 
RD WRT NOVEC 
RD WRT NOVEC 
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VAX=11 Macro Run Statistics 19-$6b=1 382 90:39:48 YOYSLOA. SREIINTADP MAR; 3 - (17) 


Geaisrreene® sel RS RR 


The yark ing ses yo was 4250 pages. 

13876 hay | (272 pages) of virtual memory were used to butter intermediate code. 

There were 90 pages of symbol table space a oreetes to hold 1649 non-local ing 36 local symbols. 
46 source Lines were read in Pass 1, producin object records in Pass 2. 

47 pages of virtual memory were used to define 45 macros. 


doer memes tema esneceseaemecoaa + 


! Macro Library statistics ! 


oo seo + 


Macro Library name Macros defined 
$255$DUA28:(CSYS.OBJJLIB.MLB;1 

Stites Hester STARLET.MLB;2 i§ 
TOTALS (all Libraries) 3 


1790 GETS were required to define 37 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: INIADP780/0BJ=0BJ$: INIADP780 MSRC$: CPUSW780/UPDATE=(ENHS$: CPUSW780) +MSRC$: INIADP/UPDATE=(ENHS$: INIADP) +EXECMLS$/LIB 


ENT CORPORATION 
ND PROPRIETARY 
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